telegard/wcat20.pas

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 }