home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
MISC
/
DESIRE15.ZIP
/
INSTALL.DAT
/
INFO.ZIP
/
XRD-DEV1.ZIP
/
STRUCTS.130
< prev
next >
Wrap
Text File
|
1997-03-29
|
28KB
|
686 lines
(*-------------------------------------------------------------------------*)
(* *)
(* dESiRE structures version 1.3 *)
(* *)
(*-------------------------------------------------------------------------*)
TYPE
ConfigRec = RECORD { C:\DESIRE\CONFIG.<Node> }
BBSName : String[30];
Sysop : String[30];
Located : String[50];
Path : String[60];
Data : String[60];
Commands : String[60];
FileToMsg : String[60];
Work : String[60];
Hold : String[60];
LcFiles : String[60];
Node : String[60];
Access : String[60];
Broken : String[60];
LogFiles : String[60];
Scripts : String[60];
Irq : Byte;
ComVector : String[3];
BaseAddr : String[5];
ComType : Byte;
Comport : Byte;
Baudrate : LongInt;
Parity : Char;
CharLength : Byte;
StopBits : Byte;
Inittries : Byte;
InitString : String[60];
OKstring : String[10];
HangUpString : String[60];
BusyString : String[10];
AnswerString : String[60];
RingString : String[10];
OffHookString : String[60];
FaxConnectString: String[60]; { version 1.2 final }
NotUsed1 : Array[1..254] of Byte;
SystemPwd1 : String[15];
SystemPwd2 : String[15];
NewUserPwd1 : String[15];
NewUserPwd2 : String[15];
VipPreset : Byte;
{ IF Nup2 then what preset to give }
PwdTries : Array[1..8] of Byte;
{ 1 = System Password #1 Attempts }
{ 2 = System Password #2 Attempts }
{ 3 = User Password Attempts }
{ 4 = Newuser Password Attempts }
{ 5 = Conf. Password Attempts }
{ 6 = Command Password Attempts }
{ 7 = Door Password Attempts }
{ 8 = Baudrate Password Attempts }
AskFront : Boolean;
{ Ask system pwd before welcome screen ? }
FlashAtRing : Boolean;
BeepAtRing : Boolean;
FlashAtPage : Boolean;
AskChatReason : Boolean;
AskMailScan : Boolean;
AskDeleteMessage : Boolean;
SystemxDropFile : Boolean;
HowManyNodes : Byte;
MinPwLength : Byte;
ScreenSave : Boolean;
ScrSaveSecs : Integer;
LocalOffHook : Boolean;
WeekTopReset : Byte;
ForeColor : Byte;
BackColor : Byte;
BlinkColor : Byte;
MinSpace : Longint;
MonoMode : Boolean;
AnswerMachine : Boolean;
AnswerComment : Boolean;
RelativeConfs : Boolean;
FullyPrivate : Boolean;
NoSysopCalls : Boolean;
FileUpCase : Boolean;
AskLanguage : Boolean;
AskAnsiGraphics : Boolean;
PageBeep : Boolean;
PageComment : Boolean;
Nu_Hidden : Boolean;
Nu_AutoMsg : Boolean;
Nu_HangUp : Boolean;
Nu_Preset : Byte;
Presets_SecLvl : Array[1..5] of Byte;
Presets_TimeDay : Array[1..5] of Longint;
Presets_ChatDay : Array[1..5] of Longint;
Presets_Bytes : Array[1..5] of Longint;
Presets_ConfACP : Array[1..5] of String[3];
Presets_ConfAcc : Array[1..5] of Boolean;
Presets_Ratio : Array[1..5] of Byte;
Presets_RatioType : Array[1..5] of Byte;
Presets_Flags : Array[1..5,1..99] of Boolean;
Presets_Limits : Array[1..5,1..30] of Byte;
Macros1 : Array[1..10] of String[65];
Macros2 : Array[1..10] of String[65];
NotUsed3 : Array[1..406] of Byte;
ProtoKey : Array[1..10] of String[1];
ProtoName : Array[1..10] of String[30];
ProtoULBat : Array[1..10] of String[8];
ProtoDLBat : Array[1..10] of String[8];
MenuSetName : Array[1..5] of String[30];
MenuSetPath : Array[1..5] of String[60];
MenuSetDoors : Array[1..5] of String[60];
FutureExpand1 : Boolean;
AskGoodbye : Boolean;
FileListClrScr : Boolean;
Mode80x25 : Boolean;
Mode80x30 : Boolean;
Mode80x34 : Boolean;
Mode80x43 : Boolean;
Mode80x50 : Boolean;
Mode80x60 : Boolean;
PwdFillChar1 : Char; { systempasswords }
PwdFillChar2 : Char; { userpassword }
HandleFaxConnects : Boolean;
SkipNewUserApply : Boolean;
DisableMouse : Boolean;
UseCdPlayer : Boolean;
NodeRefresh : Boolean;
LocalWarningIfRing : Boolean;
DontCloseComport : Boolean;
DisableLogoffBeforePosting : Boolean; { 1.1 }
DisableAddFileDescriptions : Boolean;
DisableDYN : Boolean;
DeleteMailByDefault : Boolean;
DisablePartialNameLogon : Boolean;
DisableStatBar : Boolean; { on / off }
StatBarNumber : Byte;
TreatALLandEALLTheSame : Boolean; { 1.2 }
DisableUploadingMessages : Boolean; { 1.2 }
SelectFromFlagList : Boolean; { 1.2 }
AskForFullScreenEditor : Boolean; { 1.2 }
LocalDupeCheck : Boolean; { 1.2 }
DupeCheckAfterUpload : Boolean; { 1.2 }
NewuserJoinConference : Byte; { 1.2 }
DisablePrivateUploadMSG : Boolean; { 1.2final }
FutureOptions : Array[1..4653] of Byte;
end;
(*-------------------------------------------------------------------------*)
TYPE LastCall = RECORD { C:\DESIRE\DATA\LASTCALL.DAT }
Node : Byte;
Name : String[30];
Location : String[30];
Date : String[8];
Logontime : String[8];
Logofftime : String[8];
BaudRate : String[6];
BaudStr : String[40];
Times : Longint;
Download : Boolean;
Upload : Boolean;
Posted : Boolean;
Read : Boolean;
WantedChat : Boolean;
Chated : Boolean;
NodeChat : Boolean;
Hidden : Boolean;
UsedDoors : Boolean;
Scanned : Boolean;
LostCarrier : Boolean;
Hacking : Boolean;
Downs : Integer;
Ups : Integer;
Downk : LongInt;
Upk : LongInt;
OnlineSecs : LongInt;
end;
(*-------------------------------------------------------------------------*)
UserRecord = RECORD { C:\DESIRE\DATA\USERS.DAT }
Name : String[30];
Location : String[30];
RealName : String[30];
NetMailName : String[30];
Password : String[15];
Phone : String[30];
Computer : String[30];
ACP : String[3];
LastConf : Longint;
Lines : Byte;
ConfAccount : Boolean;
Ratio : Byte;
RatioType : Byte;
{ 1 = Files & Bytes
2 = Only Files
3 = Only Bytes
4 = Disabled }
SecLvl : Byte;
CallsTotal : Longint;
CallsWeek : Longint;
CallsMonth : Longint;
Ups : Longint;
Downs : Longint;
Upk : Double;
DownK : Double;
DownToday : Longint;
BytesAvail : Longint;
MsgPosted : Longint;
MsgReceived : Longint;
Cps_Up : Longint;
Cps_Down : Longint;
WeekUpk : Longint;
WeekUps : Longint;
WeekDownk : Longint;
WeekDowns : Longint;
MonthUpk : Longint;
MonthUps : Longint;
MonthDownk : Longint;
MonthDowns : Longint;
FakeUps : Longint;
FakeUpk : Longint;
FreeDowns : Longint;
FreeDownk : Longint;
LastDate : String[8];
LastTime : String[8];
FirstDate : String[8];
FirstTime : String[8];
BirthDate : String[8];
{ ALL TIME LIMITS ARE IN SECONDS }
TimeLeft : Longint;
TimeDay : Longint;
TotalTime : Longint;
NodeChatAvail : Longint;
NodeChatLeft : Longint;
NodeChatTotal : Longint;
SysopChatTotal : Longint;
SysopChatRecord : Longint;
MenuSet : Byte;
Protocol : Byte;
Deleted : Boolean;
Hidden : Boolean;
CmndMode : Boolean; { False = Seclvl, True = Own}
SentBy : String[80];
Flags : Array[1..150] of Boolean;
PageTries : Byte;
Signature : String[80]; { 1.2 }
FutureExpand : Array[1..282] of Byte;
end;
(*-------------------------------------------------------------------------
FLAGS:
1 = Edit W-Handle
2 = Edit W-Real Name
3 = Edit W-NetMail Name
4 = Edit W-Location
5 = Edit W-Phone Number
6 = Edit W-Password
7 = Edit W-Screen Length
8 = Edit W-Computer Type
9 = Edit W-MenuSet Type
10 = Edit W-Transfer Protocol
20 = Inactive Account
21 = FreeLeech Account
40 = Nodechat available
41 = Screen Clear Between Messages
42 = Expert Mode On/Off
50 = Enter EALL Message
51 = Fullscreen editor {1.2}
52 = Read Private messages (Cosysop/Sysop)
54 = Delete Own Mail
55 = Delete Any Mail
100 = User Specified Commands: G - Goodbye/Logoff
101 = User Specified Commands: M - Toggle Ansi Graphics
102 = User Specified Commands: X - Toggle Expert mode
103 = User Specified Commands: J - Join Conferences
104 = User Specified Commands: S - User Statistics
105 = User Specified Commands: B - Bulletins
106 = User Specified Commands: T - Local Time
107 = User Specified Commands: V - View Text File
108 = User Specified Commands: VS - Sysop View Text File
109 = User Specified Commands: Q - Make node Hidden
110 = User Specified Commands: L - List Users
111 = User Specified Commands: D - Download Files
112 = User Specified Commands: U - Upload Files
113 = User Specified Commands: W - Edit Setups
114 = User Specified Commands: E - Enter Message
115 = User Specified Commands: R - Read Messages
116 = User Specified Commands: F - Files Menu
117 = User Specified Commands: N - New Files Scan
118 = User Specified Commands: DS - Sysop Download
119 = User Specified Commands: O - Operator Page
120 = User Specified Commands: RL - Relogon to System
121 = User Specified Commands: $ - Global Mail Stats
122 = User Specified Commands: C - Comment to Sysop
123 = User Specified Commands: CF - Conference Config
124 = User Specified Commands: Z - Zippy Scan
125 = User Specified Commands: US - Sysop Upload
126 = User Specified Commands: A - Alter File Flags
127 = User Specified Commands: OPEN - List Doors Avail
128 = User Specified Commands: LOCAL - Local Upload
129 = User Specified Commands: FS - Global File Statistics
130 = User Specified Commands: WHO - Who's Online
*)
(*-------------------------------------------------------------------------*)
BBSrecord = Record { C:\DESIRE\DATA\BBS<node>.DAT }
LastUpdated : String[8];
ChatOnOff : Boolean;
ToCalls : Integer; { Todays Totals from CURRENT Node }
ToMsg : Integer;
ToDL : Integer;
ToUL : Integer;
ToDLBytes : Longint;
ToULBytes : Longint;
ToPrivateUL : Integer;
ToNewUsers : Integer;
ToChatTries : Integer;
ToHackTries : Integer;
ToDownCps : Integer;
ToUpCps : Integer;
ToDownName : String[30];
ToUpName : String[30];
ToOnlineSecs : Longint;
YCalls : Integer; { Yesterday }
YMsg : Integer;
YPrivateUL : Integer;
YDL : Integer;
YUL : Integer;
YDLBytes : Longint;
YULBytes : Longint;
YNewUsers : Integer;
YChatTries : Integer;
YOnlineSecs : Longint;
RCalls : Integer; { Records }
RMsg : Integer;
RPrivateUL : Integer;
RDL : Integer;
RUL : Integer;
RDLBytes : Longint;
RULBytes : Longint;
RNewUsers : Integer;
RChatTries : Integer;
ROnlineSecs : Longint;
TotalCalls : Longint; { TOTALS }
TotalUsers : Longint;
Msg : Longint;
MsgRec : Longint;
DL : Longint;
UL : Longint;
DLBytes : Double;
ULBytes : Double;
DownCps : Integer;
UpCps : Integer;
DownName : String[30];
UpName : String[30];
{ WEEK & MONTH STATS }
Week_Calls : Longint;
Week_FilesUp : Longint;
Week_FilesDown : Longint;
Week_BytesUp : Longint;
Week_BytesDown : Longint;
Week_OnlineSecs : Longint;
Month_Calls : Longint;
Month_FilesUp : Longint;
Month_FilesDown : Longint;
Month_BytesUp : Longint;
Month_BytesDown : Longint;
{ RECORDS FOR WEEK & MONTH STATS }
WeekR_Calls : Longint;
WeekR_FilesUp : Longint;
WeekR_FilesDown : Longint;
WeekR_BytesUp : Longint;
WeekR_BytesDown : Longint;
WeekR_OnlineSecs : Longint;
MonthR_Calls : Longint;
MonthR_FilesUp : Longint;
MonthR_FilesDown : Longint;
MonthR_BytesUp : Longint;
MonthR_BytesDown : Longint;
End;
(*-------------------------------------------------------------------------*)
ConfUserRecord = RECORD { C:\DESIRE\CONFDIR\USERS.CNF }
Name : String[30];
Location : String[30];
FileScan : Boolean;
MailScan : Boolean;
ZoomScan : Boolean;
Ratio : Byte;
RatioType : Byte;
Ups : Longint;
Downs : Longint;
Upk : Double;
DownK : Double;
DownToday : Longint;
BytesAvail : Longint;
MsgPosted : Longint;
MsgReceived : Longint;
WeekUpk : Longint;
WeekUps : Longint;
WeekDownk : Longint;
WeekDowns : Longint;
MonthUpk : Longint;
MonthUps : Longint;
MonthDownk : Longint;
MonthDowns : Longint;
FakeUps : Longint;
FakeUpk : Longint;
FreeDowns : Longint;
FreeDownk : Longint;
FreeLeech : Boolean;
Deleted : Boolean;
HighMsgRead : Longint;
HighMsgAuto : Longint;
LastUpdated : String[8];
FutureExpand : Array[1..326] of Byte;
end;
(*-------------------------------------------------------------------------*)
TransferRecord = RECORD { C:\DESIRE\DATA\TRANSFER.xxx }
FileSent : Boolean; { Download = FALSE, Upload=TRUE }
FileName : String[80]; { FileName WITH FULL PATH! }
FileSize : Longint; { FileSize in Bytes }
FileCPS : Longint; { Transfer CPS Rate }
FileSkip : Boolean; { File was Skipped }
FileError : Boolean; { File was not completly sent/rec }
end;
(*-------------------------------------------------------------------------*)
MultiNodeRecord = RECORD { C:\DESIRE\DATA\NODE.xxx }
Name : String[30];
Location : String[30];
BaudRate : Longint;
InitBaud : Longint;
AvailForChat : Boolean;
Status : Byte;
ExtStatus : String[20];
TimeLeft : Longint;
ChatTimeLeft : Longint;
Conference : Longint;
HiddenNode : Boolean;
End;
{
WHO Status:
0 - Node Inactive ExtStatus: -
1 - Waiting for Call ExtStatus: -
2 - Ring Detected ExtStatus: -
3 - Receiving Call ExtStatus: -
4 - Logging on ExtStatus: -
5 - Scanning Mail ExtStatus: -
6 - Normal BBS Use/IDLE ExtStatus: -
7 - Account Sequence ExtStatus: -
8 - MultiNode Chat ExtStatus: -
9 - Newuser ExtStatus: NewUserName
10 - Uploading ExtStatus: FileName <Number>
11 - Downloading ExtStatus: FileName <Number>
12 - Beginning Upload ExtStatus: -
13 - Beginning Download ExtStatus: -
14 - FileCheck ExtStatus: FileName
15 - FileID ExtStatus: FileName
16 - Logging Off ExtStatus: -
17 - Chatting with Sysop ExtStatus: -
18 - WHO ExtStatus: -
19 - Joining Conference ExtStatus: -
20 - Viewing Bulletins ExtStatus: -
21 - Viewing TextFile ExtStatus: -
22 - Sysop Viewing File ExtStatus: -
23 - Viewing Userlist ExtStatus: -
24 - Editing User Setups ExtStatus: -
25 - Posting Message ExtStatus: <ToWho>
26 - Reading Messages ExtStatus: -
27 - Viewing Filelist ExtStatus: -
28 - Scanning New Files ExtStatus: -
29 - Paging Sysop ExtStatus: -
30 - Requested Relogon ExtStatus: -
31 - ZipScan ExtStatus: -
32 - Flagging Files ExtStatus: -
Above 32 For External Doors ExtStatus: Contains the actual action
}
(*-------------------------------------------------------------------------*)
DoorRecord = RECORD { C:\DESIRE\DATA\DESDOOR.xxx }
Name : String[30];
Location : String[30];
RealName : String[30];
NetMailName : String[30];
Password : String[15];
Phone : String[30];
Computer : String[30];
ACP : String[3];
LastConf : Longint;
Lines : Byte;
ConfAccount : Boolean;
Ratio : Byte;
RatioType : Byte;
SecLvl : Byte;
CallsTotal : Longint;
CallsWeek : Longint;
CallsMonth : Longint;
Ups : Longint;
Downs : Longint;
Upk : Double;
DownK : Double;
DownToday : Longint;
BytesAvail : Longint;
MsgPosted : Longint;
MsgReceived : Longint;
Cps_Up : Longint;
Cps_Down : Longint;
WeekUpk : Longint;
WeekUps : Longint;
WeekDownk : Longint;
WeekDowns : Longint;
MonthUpk : Longint;
MonthUps : Longint;
MonthDownk : Longint;
MonthDowns : Longint;
FakeUps : Longint;
FakeUpk : Longint;
FreeDowns : Longint;
FreeDownk : Longint;
LastDate : String[8];
LastTime : String[8];
FirstDate : String[8];
FirstTime : String[8];
BirthDate : String[8];
{ ALL TIME LIMITS ARE IN SECONDS }
TimeLeft : Longint;
TimeDay : Longint;
TotalTime : Longint;
NodeChatAvail : Longint;
NodeChatLeft : Longint;
NodeChatTotal : Longint;
SysopChatTotal : Longint;
SysopChatRecord : Longint;
MenuSet : Byte;
Protocol : Byte;
Deleted : Boolean;
Hidden : Boolean;
CmndMode : Boolean; { False = Seclvl, True = Own}
SentBy : String[80];
Flags : Array[1..150] of Boolean;
PageTries : Byte;
FutureExpand1 : Array[1..29] of Byte;
LcDate : String[8]; { VARIABLES for LASTCALL }
LcLogontime : String[8];
LcBaudRate : String[6];
LcBaudStr : String[40];
LcDownload : Boolean;
LcUpload : Boolean;
LcPosted : Boolean;
LcRead : Boolean;
LcWantedChat : Boolean;
LcChated : Boolean;
LcNodeChat : Boolean;
LcScanned : Boolean;
LcLostCarrier : Boolean;
LcHacking : Boolean;
LcDowns : Integer;
LcUps : Integer;
LcDownk : LongInt;
LcUpk : LongInt;
SysopAccess : Boolean;
ChatOnOff : Boolean;
StatLineOn : Boolean;
CaptureOn : Boolean;
TempFreeLeech : Boolean;
Reserved : Boolean;
Paged : Boolean;
Ansi : String[3]; (* 'ANS' or 'ASC' *)
Local : Boolean;
ConfPath : String[60];
ConfName : String[30];
OpenParams : String[255];
OnlineBaud : Longint;
Node : Byte;
HiddenNode : Boolean;
FutureExpand2 : Array[1..333] of Byte;
end;
(*-------------------------------------------------------------------------*)
MsgRecord = RECORD { C:\DESIRE\MSGBASE\HEADERS.DAT }
MsgTo : String[30];
MsgFrom : String[30];
Subject : String[30];
PostTime : String[24];
ReadTime : String[24];
Number : LongInt;
Status : char;
Flag : char;
TagLine : char;
End;
(*-------------------------------------------------------------------------*)
FlagRecord = RECORD { C:\DESIRE\FILEFLAG.xx }
FileName : string[12];
end;
(*-------------------------------------------------------------------------*)
XferLogRecord = RECORD { C:\BBS\LOGFILES\UPLOAD.DAT }
FileName : string[60]; { C:\BBS\LOGFILES\DOWNLOAD.DAT }
Date : string[8];
Time : string[8];
Name : string[30];
Location : string[30];
Conference : longint;
FileSize : Longint;
CpsRate : Integer;
end;
(*-------------------------------------------------------------------------*)
StringRecord = RECORD { C:\DESIRE\STRSx.xxx }
MciStr : string[255];
end;
(*-------------------------------------------------------------------------*)
GlobalFlagRecord = Record { C:\DESIRE\GLOBFLAG.xx }
FilePath:String;
Conference:Byte;
FreeLeech:Boolean;
End;
(*-------------------------------------------------------------------------*)