{ --------------------------------------------------------------- }
{ Dieser Quelltext ist urheberrechtlich geschuetzt.               }
{ (c) 1991-1999 Peter Mandrella                                   }
{ (c) 2000-2001 OpenXP-Team                                       }
{ (c) 2002-2005 FreeXP, http://www.freexp.de                      }
{ CrossPoint ist eine eingetragene Marke von Peter Mandrella.     }
{                                                                 }
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
{ --------------------------------------------------------------- }
{ $Id: xp7l.pas,v 1.7 2005/01/01 11:16:30 mw Exp $ }

{ lokale Deklarationen zu XP7.PAS }

{$I XPDEFINE.INC }

unit  xp7l;

interface

uses  typeform,xp0;

const esec        = 30;    { Sekunden warten bei Fehler }
      MaggiFehler = 1;
      IdleTimeout = 5;
      nlfile      = 'NETLOG.TMP';

      forcepoll   : boolean = false;   { Ausschluázeiten ignorieren }

type NCstat = record
                datum              : string[DateLen];
                box                : string[BoxNameLen];
                starttime,conntime : DateTimeSt;
                conndate           : DateTimeSt;
                connsecs           : integer;
                connstr            : string[60];
                addconnects        : word;      { bei mehreren Fido- }
                logtime,waittime   : integer;   {    Anwahlversuchen }
                hanguptime         : integer;
                sendtime,rectime   : longint;
                sendbuf,sendpack   : longint;
                recbuf,recpack     : longint;
                endtime            : DateTimeSt;
                kosten             : real;
                abbruch            : boolean;
                telefon            : string[40];
              end;
     NCSptr = ^NCstat;

var  comnr        : byte;       { COM-Nummer; wg. Geschwindigkeit im Datensegment }
     NC           : NCSptr;
     ConnTicks    : longint;
     outmsgs      : longint;    { Anzahl versandter Nachrichten }
     outemsgs     : longint;    { Anzahl mitgeschickter EPP-Nachrichten }
     wahlcnt      : integer;    { Anwahlversuche }
     bimodem      : boolean;
     do_SysopMode : boolean;    { true if SysopMode or Client }
     komment      : string[35];
     fidologfile  : string[12];
     ClientLogFile: string[79];
     ExtLogFile   : string[79];
    _turbo        : boolean;
    _uucp         : boolean;
    netlog        : textp;
    logopen       : boolean;
    in7e1,out7e1  : boolean;    { UUCP: Parity-Bit strippen/erzeugen }


implementation

end.
{ 
  $Log: xp7l.pas,v $
  Revision 1.7  2005/01/01 11:16:30  mw
  MW: - Willkommen im Jahr 2005

  Revision 1.6  2004/01/09 16:18:58  mw
  MW: - Wir haben jetzt 2004!!

  Revision 1.5  2003/07/30 23:09:50  my
  MY:- Source-Header auf "FreeXP" aktualisiert, einige Detailkorrekturen
       an CVS-Logs vorgenommen und hier und da CVS-Loginfos implementiert.

  Revision 1.4  2003/06/25 17:29:28  tw
  auto-de-branching

  Revision 1.3.2.3  2001/12/20 15:07:18  my
  MY+MK:- Umstellung "RFC/Client" auf neue Netztypnummer 41 und in der
          Folge umfangreiche Code-Anpassungen. Alte RFC/Client-Boxen
          mssen einmal manuell von RFC/UUCP wieder auf RFC/Client
          umgeschaltet werden.

  MY:- Sysop-Mode wird jetzt ber einen Schalter aktiviert/deaktiviert.

  MY:- Sysop-Mode RFC/Client funktioniert jetzt.

  Revision 1.3.2.2  2001/06/27 15:36:15  my
  - move external client netcall log to 'ClientPath+XPCLIENT.LOG'

  Revision 1.3.2.1  2001/06/19 01:27:44  my
  - RFC/Client: Logfile XPCLIENT.LOG is now automatically appended to the
    netcall report if found in the client directory

  Revision 1.3  2000/04/13 12:48:38  mk
  - Anpassungen an Virtual Pascal
  - Fehler bei FindFirst behoben
  - Bugfixes bei 32 Bit Assembler-Routinen
  - Einige unkritische Memory Leaks beseitigt
  - Einge Write-Routinen durch Wrt/Wrt2 ersetzt
  - fehlende CVS Keywords in einigen Units hinzugefuegt
  - ZPR auf VP portiert
  - Winxp.ConsoleWrite provisorisch auf DOS/Linux portiert
  - Automatische Anpassung der Zeilenzahl an Consolengroesse in Win32

}
