UNIT UpgrGlob;

{$i platform.inc}

INTERFACE

{ type for the database description each upgrxxxx unit will export }

TYPE UpgradeProcType = PROCEDURE (VAR Rec; VAR Version : BYTE);

TYPE DatabaseRecord = RECORD
                            Filename : STRING[8];
                            Proc     : UpgradeProcType;
                            Header   : STRING[20];
                            Oldest   : BYTE;
                            Latest   : BYTE;
                            RecSizes : ARRAY[1..40] OF WORD;
                      END;

TYPE DatabaseRecordPtr = ^DatabaseRecord;

{ used both by cfg and user }
TYPE FidoAddrType = RECORD
                          Zone   : WORD;
                          Net    : WORD;
                          Node   : WORD;
                          Point  : WORD;
                          Domain : STRING[25];
                    END;

CONST MAXLEN_REC = 20000; { Config18 now at 18021 }

TYPE BA = ARRAY[0..MAXLEN_REC] OF BYTE;

CONST FLEX_FILENAME : STRING[10] = 'CONFIG.TDB';

CONST PrivAreaName : STRING[12] = 'PRIVATE_MAIL';

VAR CreateP        : BOOLEAN;
    PType          : BYTE;
    PDecode        : BOOLEAN;
    PDecPath,
    PPath          : STRING[80];

IMPLEMENTATION

END.
