65 lines
3.2 KiB
ObjectPascal
65 lines
3.2 KiB
ObjectPascal
type
|
|
More_Prompt_Type = (Erase_Prompt, Next_Line);
|
|
Expertise_Level = (xpNovice, xpRegular, xpExpert);
|
|
Transfer_Type = (All, Xmodem, XmodemCRC, Ymodem, YmodemG, Xmodem1K,
|
|
Xmodem1KG, ASCii, ExtBatch, Ext1, Ext2, Ext3, Ext4, Ext5, Ext6, Ext7, Ext8,
|
|
Ext9, Ext10);
|
|
Time = LongInt; { Numbers of Seconds since midnight }
|
|
Date = LongInt; { Number of days since 1/1/1600 }
|
|
wDateTimeRec = Record { Record which holds a date/time value }
|
|
D : Date;
|
|
T : Time;
|
|
end;
|
|
Password_Type = (NotReq, YesReq, Protect);
|
|
|
|
|
|
wcat_userrec =
|
|
record
|
|
Status : LongInt; { Btree Status }
|
|
UserName : String[37]; { Users name }
|
|
CallingFrom : String[30]; { location }
|
|
Password : String[14]; { Password }
|
|
PhoneNumber : String[12]; { User phone number }
|
|
ComputerType : String[15]; { Users Computer Type }
|
|
ConfJoined : String[26]; { Open Folders }
|
|
MorePrompt : More_Prompt_Type; { Erase -MORE- }
|
|
Xpert : Expertise_Level; { Xpert level }
|
|
TransferMethod : Transfer_Type; { Protocol }
|
|
HighMsg : array['A'..'Z'] of Word; { Last read each folder }
|
|
LinesPerPage : Byte; { Lines Per Page }
|
|
LastNew, { Last New Files Search }
|
|
TimeDate : wDateTimeRec; { Last time called }
|
|
MemoDate, { Extra Date Field }
|
|
UserSince, { Date First Called }
|
|
BirthDate : Date; { Users Birth Day }
|
|
SecurityLevel, { Security level }
|
|
Uploads, { Number of ULoads }
|
|
Downloads, { Number of DLoads }
|
|
TimesOn, { Number times on }
|
|
TimeLeft : Word; { Time left today }
|
|
DailyDL, { temp counter for daily download count }
|
|
DailyDK, { temp counter for daily K-bytes }
|
|
TotalUK, { Total K uploaded }
|
|
TotalDK : LongInt; { Total K downlded }
|
|
ChatPage, { Ok to Page }
|
|
HotKey, { Use Hot Keys }
|
|
LockedOut, { allowed user? }
|
|
ColorMenus : Boolean; { type of graphics }
|
|
end;
|
|
|
|
wcat_ulfrec =
|
|
record { FILESPEC.DAT }
|
|
Status : LongInt; { B-Tree Status }
|
|
FileName : String[12]; { Name of the file }
|
|
Password : String[14]; { 12 Byte password }
|
|
FileDate, { Date of the file }
|
|
LastAccessed : wDateTimeRec; { Date of last access }
|
|
Desc : array[1..2] of String[40]; { Description }
|
|
UploadedBy : String[37]; { Who uploaded by }
|
|
Area : Char; { file Area it is assigned to }
|
|
NumOfAccess, { Number of downloads }
|
|
Size : LongInt; { Size of the File }
|
|
PasswordReq : Password_Type; { Is a password required }
|
|
end; { Size 178 Bytes }
|
|
|