telegard/brec17a2.pas

234 lines
12 KiB
ObjectPascal

(***** BETA CONVERSION RECORDS *****)
ulrec17a2= { UPLOADS.DAT : File base records }
record
name:string[40]; { area description }
filename:string[12]; { filename + ".DIR" }
dlpath, { download path }
ulpath:string[40]; { upload path }
namesl:byte; { req SL to see who ULed }
maxfiles:integer; { max files allowed }
password:string[20]; { password required }
arctype, { wanted archive type (1..maxarcs,0=inactive) }
cmttype:byte; { wanted comment type (1..3,0=inactive) }
fbdepth:integer; { file base dir depth }
fbstat:set of fbflags; { file base status vars }
acs:acstring; { access requirements }
{}sl:byte; { SL required }
{}dsl:byte; { DSL required }
{}ar:acrq; { AR flag required }
{}agereq:byte; { age required }
res:array[1..6] of byte; { RESERVED }
end;
systatrec17a4=
record
bbsname:string[40]; {BBS's name }
bbsphone:string[12]; {BBS's phone # }
sysopfirst:string[12]; {SysOp's 1st name }
sysoplast:string[16]; {SysOp's 2nd name }
boardpw:string[20]; {newuser PW (if active) }
sysoppw:string[20]; {SysOp PW }
bbspw:string[20]; {board PW (if matrix) }
closedsystem:boolean; {if no new users accepted }
matrix:boolean; {if Shuttle Logon active }
alias:boolean; {if allow alias's }
clearmsg:boolean; {if clear scr. before msg }
fone:boolean; {if ph# PW's active }
multitask:boolean; {if BBS is multitasking }
bwindow:boolean; {if large window active }
lock300:boolean; {if lockout 300 baud }
wantquote:boolean; {/// }
mcimsg:boolean; {/// }
special:boolean; {WFC menu special effects }
localsec:boolean; {if local security on }
localscreensec:boolean; {whether local screen security }
autominlogon:boolean; {if automessage in logon }
bullinlogon:boolean; {if bulletins in logon }
lcallinlogon:boolean; {if last caller list in logon }
autochatopen:boolean; {if chat buffer auto-open }
yourinfoinlogon:boolean; {whether yourinfo in logon }
globaltrap:boolean; {if trap all users activity }
snowchecking:boolean; {whether snow checking on }
forcevoting:boolean; {manditory voting during logon }
offhooklocallogon:boolean;{take phone off hook when logon locally }
hmsg:messages; {highest msg counter }
tfiledate:string[8]; {last Tfiles date }
lastdate:string[8]; {/// }
callernum:longint; {# of callers }
users:integer; {# of users }
activetoday:integer; {TODAY's time-on count }
callstoday:integer; {TODAY's caller count }
msgposttoday:integer; {TODAY's post count }
emailtoday:integer; {TODAY's email count }
fbacktoday:integer; {TODAY's feedback count }
uptoday:integer; {TODAY's upload count }
newuk:integer; {TODAY's upload K count }
newusertoday:integer; {TODAY's new user count }
dntoday:integer; {TODAY's download count }
newdk:integer; {TODAY's download K count }
gfilepath:string[79]; {GFILES path }
pmsgpath:string[79]; {Private mail path }
menupath:string[79]; {MENUS path }
tfilepath:string[79]; {TFILES path }
afilepath:string[79]; {alternate text files path }
trappath:string[79]; {user audit trap path }
temppath:string[79]; {"temp" directory path }
lowtime,hitime:integer; {SysOp hours }
dllowtime,dlhitime:integer; {download hours }
b300lowtime,b300hitime:integer; {300 baud hours }
b300dllowtime,b300dlhitime:integer; {300 baud DL hours }
app:integer; {user num to send new user application to }
guestuser:integer; {user num of guest user }
timeoutbell:integer; {mins before timeout bell }
timeout:integer; {mins before timeout }
sysopcolor,usercolor:byte; {colors in chat mode }
bsdelay:byte; {backspacing delay }
tosysopdir:byte; {"To SysOp" file dir }
comport:byte; {comport # }
maxbaud:word; {max baud }
init:string[40]; {init string }
hangup:string[40]; {hangup string }
offhook:string[40]; {phone off hook string }
answer:string[40]; {answer string }
resultcode:array[1..2,0..4] of integer; {**-Result codes-** }
nocarrier:integer; {no carrier result code }
nodialtone:integer; {no dialtone result code }
busy:integer; {busy result code }
nocallinittime:integer; {reinit modem after x mins of inactivity }
tries:byte; {tries allowed for PW's }
newsl,newdsl:byte; {new- }
newar:set of acrq; {user }
newac:set of uflags; {automatic }
newfp:integer; {settings }
autosl,autodsl:byte; {auto- }
autoar:set of acrq; {validation }
autoac:set of uflags; {settings }
ansiq:string[80]; {"do you want ANSI" string }
engage:string[79]; {engage chat string }
endchat:string[79]; {end chat string }
sysopin:string[79]; {if in sysop hours }
sysopout:string[79]; {if outside sysop hours }
note:array[1..2] of string[79]; {logon notes (L 1-2) }
lprompt:string[40]; {logon prompt (L 3) }
wait:string[79]; {sysop working string }
pause:string[79]; {pause string }
msg1:string[79]; {enter msg line 1 }
msg2:string[79]; {enter msg line 2 }
new1:string[79]; {newscan begin string }
new2:string[79]; {newscan done string }
read:string[79]; {Msg (S)can prompt }
auto1:string[79]; {auto msg title }
autom, {auto msg borders }
echoc:char; {echo char for PWs }
uldlratio, {if UL/DL ratios on }
fileptratio:boolean; {if file pt ratios on }
fileptcomp, {file pt compensation ratio }
fileptcompbasesize:byte; {file pt base compensation size }
timeallow, {time allowance }
callallow, {call allowance }
dlratio, {# DLs ratios }
dlkratio, {DL k ratios }
postratio:secrange; {post ratios }
normpubpost,anonpubpost,anonpubread, {public mail SLs }
normprivpost,anonprivpost,anonprivread, {email SLs }
maxpubpost,maxprivpost, {max post/email per call }
maxfback,maxchat, {max feedback/pages per call }
maxwaiting,csmaxwaiting, {max mail waiting, normal/CS }
maxlines,csmaxlines:byte; {max lines in msg, normal/CS }
sop,csop, {SysOp SL / CoSysOp SL }
msop,fsop, {Message SysOp SL / File SysOp SL }
spw, {SysOp PW at logon }
seepw, {see SysOp PWs remotely }
nodlratio, {no DL ratio checking }
nopostratio, {no post ratio checking }
nofilepts, {no file pts checking SL }
seeunval, {see unvalidated files SL }
dlunval, {download unval. files SL }
ulrefund:byte; {% time refund for ULs }
eventwarningtime:integer; {time before event warning }
filearccomment:array[1..3] of string[80]; {BBS comment for ARC file }
filearcinfo:array[1..6] of filearcinforec; {ARC specs}
minspaceforpost, {minimum K req'd for a post}
minspaceforupload:integer; {minimum K req'd for an upload}
postcredits:integer; {file points/upload credit compensation for posts}
ulvalreq:byte; {uploads require validation override SL}
mmmmm:array[1..31] of byte;
backsysoplogs:byte; {# back-days to keep SYSOP##.LOG}
compressbases:boolean; {whether to "compress" file/msg bases}
remdevice:string[10]; {remote output device }
userbaud:array[0..4] of integer; {user baud rates ... }
criterr:integer; {# critical errors occured today }
searchdup:boolean; {search for dup. filenames when UL?}
istopwindow:boolean; {put SysOp window on top of screen?}
arq9600rate:word; {baud rate to USE when 9600 ARQ result code}
allstartmenu:string[8]; {menu to start ALL users out on}
wfcblanktime:byte; {minutes after which to blank WFC menu}
validateallfiles:boolean; {validate all files automatically?}
maxintemp:integer; {max k-bytes allowed in TEMP\3\}
slogtype:byte; {output SysOp log to printer?}
stripclog:boolean; {strip color from SysOp log output?}
noforcerate:boolean; {whether to force baud rate}
rebootforevent:boolean; {reboot before events?}
minresume:integer; {minimum k-bytes to allow save for resume}
res:array[1..123] of byte; {***-> reserved <-***}
end;
boardrec17a5= { BOARDS.DAT : Message base records }
record
name:string[40]; { message base description }
filename:string[12]; { *.BRD data filename }
msgpath:string[40]; { messages pathname }
acs, { access requirement }
postacs, { post access requirement }
mciacs:acstring; { MCI usage requirement }
maxmsgs:byte; { max message count }
anonymous:anontyp; { anonymous type }
password:string[20]; { base password }
mbstat:set of mbflags; { message base status vars }
permindx:longint; { permanent index # }
{*}mbdepth:integer; { message base dir depth }
res:array[1..4] of byte; { RESERVED }
end;
modemrec17a7=
record
waitbaud:word; { wait baud }
comport:byte; { comport number }
init:string[80]; { initialization string }
answer:string[40]; { answer string }
hangup:string[40]; { hangup string }
offhook:string[40]; { phone off-hook string }
nocallinittime:integer; { reinit modem after x mins of inactivity }
arq9600rate:word; { baud rate to USE when 9600 ARQ result code }
noforcerate:boolean; { whether to force baud rate}
nocarrier:integer; { no carrier result code }
nodialtone:integer; { no dialtone result code }
busy:integer; { busy result code }
resultcode:array[1..2,0..4] of integer; {**-Result codes-** }
end;