FreeXP

CVS daily diff

FreeXP CVS-Server cvs-list at freexp.de
Mit Sep 28 00:00:17 CEST 2005


Index: freexp/xp-d.rq
===================================================================
RCS file: /server/cvs/freexp/xp-d.rq,v
retrieving revision 1.65
retrieving revision 1.67
diff -u -r1.65 -r1.67
--- freexp/xp-d.rq	3 Mar 2005 18:44:33 -0000	1.65
+++ freexp/xp-d.rq	27 Sep 2005 09:46:58 -0000	1.67
@@ -3,7 +3,7 @@
 K (c) 1993-1999 Peter Mandrella
 K (c) 2000-2001 OpenXP-Team
 K (c) 2002-2005 FreeXP, http://www.freexp.de
-# $Id: xp-d.rq,v 1.65 2005/03/03 18:44:33 mw Exp $
+# $Id: xp-d.rq,v 1.67 2005/09/27 09:46:58 mw Exp $
 
 # Online-Hilfe, Tastenmakros
 1 XP.HLP
@@ -799,8 +799,6 @@
 13   unerledigte Requests zurückstellen
 14   Nodeliste automatisch indizieren
 15   Via-Zeilen löschen
-16   Binkley-Style-Outbound (BSO) verwenden
-17   Standard-Zone für BSO                 ~
 + 268
 1    PM-Größenlimits / Bytes
 2    Netz
@@ -2019,7 +2017,6 @@
 43   Packer-Extension    ~
 44   Janus Plus
 # Fido
-54   externer Mailer  ~
 45   AKAs ~
 46   4D-Adressen
 47   TosScan o.ä.
Index: freexp/xp-e.rq
===================================================================
RCS file: /server/cvs/freexp/xp-e.rq,v
retrieving revision 1.101
retrieving revision 1.103
diff -u -r1.101 -r1.103
--- freexp/xp-e.rq	25 Sep 2005 17:16:37 -0000	1.101
+++ freexp/xp-e.rq	27 Sep 2005 09:46:58 -0000	1.103
@@ -3,7 +3,7 @@
 K (c) 1993-1999 Peter Mandrella
 K (c) 2000-2001 OpenXP-Team
 K (c) 2002-2005 FreeXP, http://www.freexp.de
-# $Id: xp-e.rq,v 1.101 2005/09/25 17:16:37 mf Exp $
+# $Id: xp-e.rq,v 1.103 2005/09/27 09:46:58 mw Exp $
 
 # Online Help File, Key Macros
 1 XP-E.HLP
@@ -790,8 +790,6 @@
 13   Keep failed file requests
 14   Automatic nodelist indexing
 15   Delete hidden kludges
-16   Use Binkley Style Outbound (BSO)
-17   Default Zone for BSO      ~
 + 268
 1    PM size limits / Bytes
 2    net
@@ -1986,7 +1984,6 @@
 43   UpPack extension ~
 44   Janus Plus
 # Fido
-54   external Mailer  ~
 45   AKA's~
 46   4D addresses
 47   TosScan
Index: freexp/xp-fm.pas
===================================================================
RCS file: /server/cvs/freexp/xp-fm.pas,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- freexp/xp-fm.pas	1 Jan 2005 11:16:28 -0000	1.20
+++ freexp/xp-fm.pas	27 Sep 2005 07:25:11 -0000	1.21
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp-fm.pas,v 1.20 2005/01/01 11:16:28 mw Exp $ }
+{ $Id: xp-fm.pas,v 1.21 2005/09/27 07:25:11 mw Exp $ }
 
 { Fido-Mailer für CrossPoint }
 { (c) 06/92 by PM            }
@@ -56,9 +56,6 @@
       addtxt    : string[40] = '';
       SendEmpty : boolean = false;      { möglichst leerer Upload-Batch }
       DebugMode : boolean = false;
-      UseBSO    : Boolean = False;      { Benutzung BSO Outbound }
-      BSOZone   : Word = 2;             { BSO-Standard-Zone }
-      extMailer : String[127] = '';     { externer Mailer aufruf }
       Logfile   : pathstr = 'xp-fm.log';
       Lognew    : boolean = false;
       UseEMSI   : boolean = true;
@@ -249,22 +246,23 @@
     end;
   end;
 
-Begin
-  If ParamCount <> 1 Then Helppage;
+begin
+  if paramcount<>1 then Helppage;
   sendfiles:=0;
 {$IFNDEF Ver32}
-  If mem[Seg0040:$49]<>7 Then Begin
+  if mem[Seg0040:$49]<>7 then begin
     ColText:=$70; ColStatus:=$7e; ColXfer:=$7f;
     scrbase:=SegB800;
-    End Else Begin
+  end
+  else begin
     ColText:=7; ColStatus:=$f; ColXFer:=$f;
     scrbase:=SegB000;
-    End;
+  end;
 {$ENDIF }
-  Assign(t,ParamStr(1));
-  Reset(t);
-  If IOResult <> 0 Then error('CommandFile missing: '+ustr(paramstr(1)));
-  While not eof(t) Do Begin
+  assign(t,paramstr(1));
+  reset(t);
+  if ioresult<>0 then error('CommandFile missing: '+ustr(paramstr(1)));
+  while not eof(t) do begin
     readln(t,s0);
     s:=trim(s0);
     p:=cpos('=',s);
@@ -273,73 +271,69 @@
     else begin
       id:=lstr(trim(left(s,p-1)));
       s:=trim(mid(s,p+1));
-      if id='language'    then language:=s else
-      if id='logfile'     then logfile:=s else
-      if id='lognew'      then begin logfile:=s; lognew:=true; end else
-      If id='usebso'      Then UseBSO:=(ustr(s) <> 'N') Else
-      If id='bsozone'     Then BSOZone:=minmax(ival(s),0,999) Else
-      If id='extmailer'   Then extMailer:=(ustr(s)) Else
-      if id='modeminit'   then modeminit:=s else
+      if id='language'   then language:=s else
+      if id='logfile'    then logfile:=s else
+      if id='lognew'     then begin logfile:=s; lognew:=true; end else
+      if id='modeminit'  then modeminit:=s else
       if id='dialcommand' then dialcomm:=s else
-      if id='phone'       then phone:=trim(s) else
-      if id='cts'               then IgCTS:=(ustr(s)='N') else
-      if id='cd'                then IgCD:=(ustr(s)='N') else
-      if id='rts'               then UseRTS:=(ustr(s)<>'N') else
-      if id='connwait'          then ConnWait:=minmax(ival(s),0,240) else
-      if id='redialwait'        then RedialWait:=minmax(ival(s),2,1000) else
-      if id='redialwait2'       then RedWait2:=minmax(ival(s),2,1000) else
-      if id='redialmax'         then RedialMax:=minmax(ival(s),0,1000) else
-      if id='maxconn'           then MaxConn:=minmax(ival(s),0,25) else
-      if id='inpath'            then FilePath:=s else
-      if id='mailpath'          then MailPath:=s else
-      if id='zmtempfile'        then zmtempfile:=s else
-      if id='line'              then ModemLine:=minmax(ival(s),1,4) else
-      if id='fossil'            then Fossil:=(ustr(s)<>'N') else
-      if id='port'              then ModemPort:=hexval(s) else
-      if id='irq'               then IRQ:=minmax(ival(s),0,15) else
-      if id='triggerlevel'      then tlevel:=minmax(ival(s),2,14) else
-      if id='baud'              then Baud:=ival(s) else
-      if id='name'              then UserName:=s else
-      if id='address'           then OwnAddr:=s else
-      if id='domain'            then OwnDomain:=s else
-      if id='called'            then DestAddr:=s else
-      if id='password'          then Password:=s else
-      if id='text'              then txt:=s else
-      if id='show'              then addtxt:=s else
-      if id='sendempty'         then sendempty:=(ustr(s)<>'N') else
-      if id='debug'             then DebugMode:=(ustr(s)<>'N') else
-      if id='emsi'              then UseEMSI:=(ustr(s)<>'N') else
-      if id='aka'               then AKAs:=s else
-      if id='sysname'           then SysName:=s else
-      if id='sn'                then SerNr:=s else
-      if id='settime'           then SetTime:=(ustr(s)<>'N') else
-      if id='sendtrx'           then SendTrx:=(ustr(s)<>'N') else
-      if id='colors'            then GetColors else
-      if id='releasetime'       then os2time:=minmax(ival(s),0,3) else
+      if id='phone'      then phone:=trim(s) else
+      if id='cts'        then IgCTS:=(ustr(s)='N') else
+      if id='cd'         then IgCD:=(ustr(s)='N') else
+      if id='rts'        then UseRTS:=(ustr(s)<>'N') else
+      if id='connwait'   then ConnWait:=minmax(ival(s),0,240) else
+      if id='redialwait' then RedialWait:=minmax(ival(s),2,1000) else
+      if id='redialwait2'then RedWait2:=minmax(ival(s),2,1000) else
+      if id='redialmax'  then RedialMax:=minmax(ival(s),0,1000) else
+      if id='maxconn'    then MaxConn:=minmax(ival(s),0,25) else
+      if id='inpath'     then FilePath:=s else
+      if id='mailpath'   then MailPath:=s else
+      if id='zmtempfile' then zmtempfile:=s else
+      if id='line'       then ModemLine:=minmax(ival(s),1,4) else
+      if id='fossil'     then Fossil:=(ustr(s)<>'N') else
+      if id='port'       then ModemPort:=hexval(s) else
+      if id='irq'        then IRQ:=minmax(ival(s),0,15) else
+      if id='triggerlevel' then tlevel:=minmax(ival(s),2,14) else
+      if id='baud'       then Baud:=ival(s) else
+      if id='name'       then UserName:=s else
+      if id='address'    then OwnAddr:=s else
+      if id='domain'     then OwnDomain:=s else
+      if id='called'     then DestAddr:=s else
+      if id='password'   then Password:=s else
+      if id='text'       then txt:=s else
+      if id='show'       then addtxt:=s else
+      if id='sendempty'  then sendempty:=(ustr(s)<>'N') else
+      if id='debug'      then DebugMode:=(ustr(s)<>'N') else
+      if id='emsi'       then UseEMSI:=(ustr(s)<>'N') else
+      if id='aka'        then AKAs:=s else
+      if id='sysname'    then SysName:=s else
+      if id='sn'         then SerNr:=s else
+      if id='settime'    then SetTime:=(ustr(s)<>'N') else
+      if id='sendtrx'    then SendTrx:=(ustr(s)<>'N') else
+      if id='colors'     then GetColors else
+      if id='releasetime'then os2time:=minmax(ival(s),0,3) else
       if id='extendedfilenames' then ExtFNames:=(ustr(s)<>'N') else
-      if id='cpsmin'            then MinCps:=minmax(ival(s),0,9999) else
-      if id='zmoptions'         then ZMoptions:=s else
-      if id='phonezone'         then tarifzone:=s else
-      if id='send'              then begin
-        if sendfiles < maxfiles then begin
+      if id='cpsmin'     then MinCps:=minmax(ival(s),0,9999) else
+      if id='zmoptions'  then ZMoptions:=s else
+      if id='phonezone'  then tarifzone:=s else
+      if id='send' then begin
+        if sendfiles<maxfiles then begin
           inc(sendfiles);
           getmem(sendfile[sendfiles],length(s)+1);
           sendfile[sendfiles]^:=ustr(s);
-          End
-        End Else Begin
+        end
       { keine bekannte Option angegeben: }
+      end else
         writeln('Warning - unknown Option:  '+s0);
-        End;
-      End;
-    End;
-  Close(t);
+    end;
+  end;
+  close(t);
   if not FOSSILdetect then fossil:=false;
   if fossil then begin
     writeln('Using FOSSIL driver');
     writeln;
-    End;
+  end;
   if exist('RTS.FM') then UseRTS:=true;
-  End;
+end;
 
 procedure splitfido(adr:string; var frec:fidoadr);
 var p1,p2,p3 : byte;
@@ -387,7 +381,7 @@
     error(perr+getreps(nr,txt));
   end;
 
-Begin
+begin
   perr:=getres(100);
   if FilePath='' then rerror(112);    { 'InPath missing' }
   if right(FilePath,1)<>'\' then FilePath:=FilePath+'\';
@@ -416,11 +410,8 @@
       rerror(110);                    { 'Port address missing' }
     if IRQ=0 then
       rerror(111);                    { 'IRQ No missing' }
-    End;
-  If UseBSO Then Begin                { BSO wird vom XP-Mailer nicht unterstützt! }
-    Writeln('Warning - BSO-Option not compatible');
-    End;
-  End;
+  end;
+end;
 
 function getscreenlines:byte;
 {$IFDEF BP }
@@ -1043,6 +1034,12 @@
 end.
 {
   $Log: xp-fm.pas,v $
+  Revision 1.21  2005/09/27 07:25:11  mw
+  MW: - Rücknahme einer Änderung von TS (Vorbereitung für
+        Binkly Style Outbound). Diese Änderung war unvollständig
+        und wird auch nicht vollendet, somit ist es besser sie
+        wieder zu entfernen.
+
   Revision 1.20  2005/01/01 11:16:28  mw
   MW: - Willkommen im Jahr 2005
 
Index: freexp/xp0.pas
===================================================================
RCS file: /server/cvs/freexp/xp0.pas,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -r1.75 -r1.76
--- freexp/xp0.pas	3 Mar 2005 18:44:33 -0000	1.75
+++ freexp/xp0.pas	27 Sep 2005 07:25:11 -0000	1.76
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp0.pas,v 1.75 2005/03/03 18:44:33 mw Exp $ }
+{ $Id: xp0.pas,v 1.76 2005/09/27 07:25:11 mw Exp $ }
 
 { CrossPoint - Deklarationen }
 
@@ -150,8 +150,6 @@
        NodelistCfg = FidoDir+'NODELST.CFG';
        NodeindexF  = FidoDir+'NODELIST.IDX';
        UserindexF  = FidoDir+'NODEUSER.IDX';
-       BSOOUTBOUND = 'OUTBOUND';   { Standard OUTBOUND bei BSO }
-       BSOINBOUND  = 'INBOUND';    { Standard INBOUND bei BSO }
        ARCmailDat  = 'ARCMAIL.DAT';
        FileLists   = FidoDir+'FILELIST.CFG';
        ReqDat      = 'REQUEST.DAT';    { Crashs + Requests }
@@ -499,7 +497,6 @@
                   uploader  : string[127];
                   downloader: string[127];
                   zmoptions : string[60];
-                  extmailer : String[127];  { FIDO externer Mailer }
                   prototyp  : string[1];    { Protokoll-Typ /Maus }
                   uparcer   : string[100];
                   downarcer : string[100];
@@ -640,13 +637,6 @@
                    ispoint    : boolean;
                  end;
 
-       FIDOAKA = record
-                   Zone       : Word;
-                   Netz       : Word;
-                   Node       : Word;
-                   Point      : Word;
-                   End;
-
        NL_Rec  = record
                    listfile   : string[12];    { Nodelisten-Datei      }
                    number     : integer;       { akt. Nummer           }
@@ -757,7 +747,7 @@
        OldScanlines:byte    = 1;
        uvs_active : boolean = false;   { /N/Z/Unversandt        }
        marksorted : boolean = false;   { marked^[] sortiert     }
-       fidolastseek:string[40] = '';   { Fido/Fileliste/Suchen  }
+       fidolastseek:string[40] = '';   { Fido/Fileliste/Suchen  }       
        cfgmodified: boolean = false;   { Einstellungen geändert }
        DisableAltN: boolean = false;   { Alt-N deaktiviert      }
        automessaging: boolean = false; { Nachrichten werden nicht-manuell }
@@ -822,7 +812,7 @@
 {$IFDEF Beta }
        ParNoBeta  : boolean = false;   { keine Beta-Meldung }
 {$ELSE }
-       ParNoBeta  : boolean = true;
+       ParNoBeta  : boolean = true;    
 {$ENDIF }
        ParNoDLL   : boolean = false;   { keine Prüfung der XP_NTVDM.DLL }
        OldXPComp  : boolean = false;   { XP 3.12 Kompatibilitätsmodus }
@@ -1093,10 +1083,6 @@
        IntVorwahl   : string[15];    { internationale Vorwahl }
        NatVorwahl   : string[10];    { nationale Vorwahl, normalerweise 0 }
        Vorwahl      : string[15];    { eigene Vorwahl }
-
-       FIDOUseBSO   : Boolean;       { FIDO Benutzung eines BSO-Outbounds }
-       FIDOextMailer: String[127];   { FIDO externer Mailer }
-       FIDOBSOZone  : Word;          { FIDO Standard Zone (2) für BSO }
        AutoDiff     : boolean;       { Node/Pointdiffs automatisch einbinden }
        ShowFidoEmpf : boolean;       { von/an/Betreff-Anzeige }
        HighlightName: string[25];    { eigenen Fido-Brettempfänger hervorheben }
@@ -1260,6 +1246,12 @@
 
 {
   $Log: xp0.pas,v $
+  Revision 1.76  2005/09/27 07:25:11  mw
+  MW: - Rücknahme einer Änderung von TS (Vorbereitung für
+        Binkly Style Outbound). Diese Änderung war unvollständig
+        und wird auch nicht vollendet, somit ist es besser sie
+        wieder zu entfernen.
+
   Revision 1.75  2005/03/03 18:44:33  mw
   MW: - Gebührenänderung zum 01.05.2005:
         Die T-Com verlangt für Terminierung bei einem Citycarrier einen
Index: freexp/xp2c.pas
===================================================================
RCS file: /server/cvs/freexp/xp2c.pas,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -r1.50 -r1.51
--- freexp/xp2c.pas	4 Mar 2005 06:53:24 -0000	1.50
+++ freexp/xp2c.pas	27 Sep 2005 07:25:11 -0000	1.51
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp2c.pas,v 1.50 2005/03/04 06:53:24 mw Exp $ }
+{ $Id: xp2c.pas,v 1.51 2005/09/27 07:25:11 mw Exp $ }
 { CrossPoint - Config bearbeiten }
 
 
@@ -77,7 +77,6 @@
 function testfilename(var s:string):boolean;
 function ngdispChanged(var s:string):boolean;
 function ngdispaChanged(var s:string):boolean;
-Function toggleBSO(var s:String):Boolean;
 
 procedure setvorwahl(var s:string);
 procedure DispArcs;
@@ -1221,56 +1220,40 @@
 end;
 
 
-Procedure setvorwahl(var s:String);
-Begin
-  If cpos('-',s)=0 Then s:='49-'+s;
-  End;
-
-Function toggleBSO(var s:String):Boolean;   { BSO-Mode on/off }
-var b   : Boolean;
-
-Begin
-  b:=s=_jn_[1];
-  setfieldenable(11,b);
-  toggleBSO:=True;
-  End;
+procedure setvorwahl(var s:string);
+begin
+  if cpos('-',s)=0 then s:='49-'+s;
+end;
 
-Procedure FidoOptions;
+procedure FidoOptions;
 var x,y : byte;
     brk : boolean;
     via : boolean;
-
-Begin
-  dialog(ival(getres2(267,0)),15,getres2(267,1),x,y);   { 'Fido-Optionen' }
+begin
+  dialog(ival(getres2(267,0)),14,getres2(267,1),x,y);   { 'Fido-Optionen' }
   maddstring(3,2,getres2(267,2),IntVorwahl,8,15,'0123456789-,@');   { 'internat. Vorwahl ' }
-  mhnr(720);
+    mhnr(720);
   maddstring(3,3,getres2(267,3),NatVorwahl,8,10,'0123456789-,@');   { 'Ortsvorwahl       ' }
   maddstring(3,4,getres2(267,4),Vorwahl,8,15,'0123456789-,@');      { 'eigene Vorwahl    ' }
   mset3proc(setvorwahl);
-  { Unterstützung für BSO einbauen TS 18.09.2003 }
-  maddbool(3,6,getres2(267,16),FIDOUseBSO);            { FIDO Benutzung eines BSO-Outbound's }
-  mset1func(toggleBSO);
-  maddbool(3,7,getres2(267,7),AutoDiff); mhnr(725);  { 'Diffs automatisch einbinden' }
-  maddbool(3,8,getres2(267,10),FidoDelEmpty);  { 'leere Nachrichten löschen' }
-  maddbool(3,9,getres2(267,12),AutoTIC);       { 'TIC-Files automatisch auswerten' }
-  maddbool(3,10,getres2(267,13),KeepRequests);  { 'unerledigte Requests zurückstellen' }
+  maddbool(3,6,getres2(267,7),AutoDiff); mhnr(725);  { 'Diffs automatisch einbinden' }
+  maddbool(3,7,getres2(267,10),FidoDelEmpty);  { 'leere Nachrichten löschen' }
+  maddbool(3,8,getres2(267,12),AutoTIC);       { 'TIC-Files automatisch auswerten' }
+  maddbool(3,9,getres2(267,13),KeepRequests);  { 'unerledigte Requests zurückstellen' }
   via:=not keepvia;
   maddbool(3,11,getres2(267,15),via); mhnr(718);   { 'Via-Zeilen löschen' }
   maddstring(3,13,getres2(267,9),BrettAlle,ival(getres2(267,8)),20,'');
   msetvfunc(notempty); mhnr(729);              { 'Standard-Brettempfänger  ' }
-  maddint (3,14,getres2(267,17),FIDOBSOZone,3,3,0,999); { FIDO Standard Zone für BSO-Outbound }
-  If Not FIDOuseBSO Then mdisable;
-  mhnr(724);
   freeres;
   readmask(brk);
-  If Not brk And mmodified Then Begin
-    keepvia:=Not via;
+  if not brk and mmodified then begin
+    keepvia:=not via;
     fidoto:=brettalle;
     GlobalModified;
-    End;
+    end;
   enddialog;
   menurestart:=brk;
-  End;
+end;
 
 procedure netoptions;
 var x,y   : byte;
@@ -1551,6 +1534,12 @@
 
 {
   $Log: xp2c.pas,v $
+  Revision 1.51  2005/09/27 07:25:11  mw
+  MW: - Rücknahme einer Änderung von TS (Vorbereitung für
+        Binkly Style Outbound). Diese Änderung war unvollständig
+        und wird auch nicht vollendet, somit ist es besser sie
+        wieder zu entfernen.
+
   Revision 1.50  2005/03/04 06:53:24  mw
   MW: - Unnötige Variable entfernt.
 
Index: freexp/xp2cfg.inc
===================================================================
RCS file: /server/cvs/freexp/xp2cfg.inc,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -r1.73 -r1.74
--- freexp/xp2cfg.inc	3 Mar 2005 18:44:33 -0000	1.73
+++ freexp/xp2cfg.inc	27 Sep 2005 07:25:10 -0000	1.74
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp2cfg.inc,v 1.73 2005/03/03 18:44:33 mw Exp $ }
+{ $Id: xp2cfg.inc,v 1.74 2005/09/27 07:25:10 mw Exp $ }
 
 const cfs     : array[0..4] of string[5] = ('Z','Shift','Ctrl','Alt','#Z');
       saveCFG : boolean = false;
@@ -697,10 +697,8 @@
   ConvISO:=false;
   KomArrows:=true;
   ShrinkNodes:='';
-{  PointListn:='POINTS24';
-  PointDiffn:='PR24DIFF';}
-  PointListn:='R24PNT';  { Anpassung an neue Pointliste in Region 24 }
-  PointDiffn:='R24PNT_D';
+  PointListn:='POINTS24';
+  PointDiffn:='PR24DIFF';
   NS_minflags:=2;
   largestnets:=10;
   countdown:=false;
@@ -730,9 +728,6 @@
   NoArchive:=false; {!MH:} { auf 'false' gesetzt, SV }
   RFC_AddOldBetreff:=false;
   FidoDelEmpty:=false;
-  FIDOuseBSO:=False;                          { FIDO Benutzung BSO-Outbound }
-  FIDOextMailer:='';
-  FIDOBSOZone:=2;
   KeepVia:=false;
   pmlimits[1,1]:=10000; pmlimits[1,2]:=0;     { Z-Netz     }
   pmlimits[2,1]:=16384; pmlimits[2,2]:=16384; { Fido       }
@@ -1086,8 +1081,6 @@
   writeln(t,'Vorwahl=',vorwahl);
   writeln(t,'IntVorwahl=',intvorwahl);
   writeln(t,'NatVorwahl=',natvorwahl);
-  writeln(t,'FIDOuseBSO=',jnf(FIDOuseBSO));
-  writeln(t,'FIDOBSOZone=',FIDOBSOZone);
   writeln(t,'AutoDiff=',jnf(AutoDiff));
   writeln(t,'BrettEmpfaenger=',BrettAlle);
   writeln(t,'ShowFidoto=',jnf(showfidoempf));
@@ -1642,8 +1635,6 @@
           getx(su,  'binmultipart',multipartbin) or
           getx(su,  'NoArchive',NoArchive) or {!MH:}
           getx(su,  'RFC_AddOldBetreff',RFC_AddOldBetreff) or
-          getx(su,  'FIDOuseBSO',FIDOuseBSO) or
-          getw(su,  'FIDOBSOZone',FIDOBSOZone) or
           getx(su,  'FidoDelEmpty',FidoDelEmpty) or
           getx(su,  'KeepVia',keepvia) or
           getx(su,  'ZCrossPostings',dummyb) or
@@ -1709,7 +1700,7 @@
           getx(su,  'vesa-dpms',vesa_dpms) or
           getx(su,  'terminalbios',termbios) or
           getx(su,  'tonsignal',tonsignal) or
-          getx(su,  'MsgNewFirst',MsgNewFirst) or
+          getx(su,  'MsgNewFirst',MsgNewFirst) or 
           gets(s,su,'msgfeldtausch',MsgFeldTausch,MsgFelderMax) or
           gets(s,su,'usrfeldtausch',UsrFeldTausch,UsrFelderMax) or
           getx(su,  'magics',magics) or
@@ -1887,6 +1878,12 @@
 
 {
   $Log: xp2cfg.inc,v $
+  Revision 1.74  2005/09/27 07:25:10  mw
+  MW: - Rücknahme einer Änderung von TS (Vorbereitung für
+        Binkly Style Outbound). Diese Änderung war unvollständig
+        und wird auch nicht vollendet, somit ist es besser sie
+        wieder zu entfernen.
+
   Revision 1.73  2005/03/03 18:44:33  mw
   MW: - Gebührenänderung zum 01.05.2005:
         Die T-Com verlangt für Terminierung bei einem Citycarrier einen
Index: freexp/xp9.inc
===================================================================
RCS file: /server/cvs/freexp/xp9.inc,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- freexp/xp9.inc	9 Apr 2005 15:55:52 -0000	1.26
+++ freexp/xp9.inc	27 Sep 2005 07:25:10 -0000	1.27
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp9.inc,v 1.26 2005/04/09 15:55:52 mw Exp $ }
+{ $Id: xp9.inc,v 1.27 2005/09/27 07:25:10 mw Exp $ }
 
   { --- Bearbeitungs-Routinen für Boxen-Liste -----------------------}
 
@@ -611,7 +611,7 @@
     xx:=66; yy:=11;
     case nt of
       nt_Fido    : begin
-                     xx:=56; yy:=19; { zusätzliche Zeile für externen Mailer }
+                     xx:=56; yy:=18;
                      fnode:=(flags and 4<>0);
                    end;
       nt_UUCP    : yy:=18;
@@ -803,24 +803,18 @@
             end
         else begin
           maddstring(3,7,getres2(920,28),ZMOptions,br,60,''); mhnr(8042);  { 'Zmodem-Optionen' }
-          If fido And FIDOuseBSO Then Begin
-            maddstring(3,8,getres2(920,54),extMailer,br,127,'');
-            mhnr(8043);
-            End Else Begin
-            ExtMailer:='';
-            End;
-          maddstring(3,10,getres2(920,45),AKAs,43,AKAlen,''); mhnr(154);  { 'AKA''s ' }
-          maddstring(3,12,getres2(920,53),SendAKAs,31,AKAlen,'');   { 'Pakete mitsenden ' }
+          maddstring(3,9,getres2(920,45),AKAs,43,AKAlen,''); mhnr(154);  { 'AKA''s ' }
+          maddstring(3,11,getres2(920,53),SendAKAs,31,AKAlen,'');   { 'Pakete mitsenden ' }
           msetvfunc(TestAKAservers);
-          maddbool(3,14,getres2(920,46),f4d);         { '4D-Adressen' }
-          maddbool(3,15,getres2(920,47),ftosscan);    { 'TosScan o.ä.' }
-          maddbool(29,14,'EMSI',EMSIenable);
+          maddbool(3,13,getres2(920,46),f4d);         { '4D-Adressen' }
+          maddbool(3,14,getres2(920,47),ftosscan);    { 'TosScan o.ä.' }
+          maddbool(29,13,'EMSI',EMSIenable);
             mset3proc(fidotestpasslen); EMSIfield:=fieldpos;
-          maddbool(29,15,getres2(920,48),gettime);    { 'Uhrzeit setzen' }
-          maddbool(3,17,getres2(920,49),PacketPW); mhnr(8000);  { 'Paketpaßwort' }
-          maddbool(3,18,getres2(920,50),fnode);       { 'Node statt Point' }
-          maddbool(29,17,getres2(920,51),NotSEmpty);  { 'leeres Paket senden' }
-          maddbool(29,18,getres2(920,52),ExtPFiles);  { 'erw. Paketdateinamen' }
+          maddbool(29,14,getres2(920,48),gettime);    { 'Uhrzeit setzen' }
+          maddbool(3,16,getres2(920,49),PacketPW); mhnr(8000);  { 'Paketpaßwort' }
+          maddbool(3,17,getres2(920,50),fnode);       { 'Node statt Point' }
+          maddbool(29,16,getres2(920,51),NotSEmpty);  { 'leeres Paket senden' }
+          maddbool(29,17,getres2(920,52),ExtPFiles);  { 'erw. Paketdateinamen' }
             mhnr(8003);
           UpArcNr:=0; DownArcNr:=0;
           end;
@@ -2171,6 +2165,12 @@
 
 {
   $Log: xp9.inc,v $
+  Revision 1.27  2005/09/27 07:25:10  mw
+  MW: - Rücknahme einer Änderung von TS (Vorbereitung für
+        Binkly Style Outbound). Diese Änderung war unvollständig
+        und wird auch nicht vollendet, somit ist es besser sie
+        wieder zu entfernen.
+
   Revision 1.26  2005/04/09 15:55:52  mw
   MW: - Kleinen Typo beseitigt.
 
Index: freexp/xp9.pas
===================================================================
RCS file: /server/cvs/freexp/xp9.pas,v
retrieving revision 1.27
retrieving revision 1.29
diff -u -r1.27 -r1.29
--- freexp/xp9.pas	21 Aug 2005 10:47:01 -0000	1.27
+++ freexp/xp9.pas	27 Sep 2005 11:47:06 -0000	1.29
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp9.pas,v 1.27 2005/08/21 10:47:01 mw Exp $ }
+{ $Id: xp9.pas,v 1.29 2005/09/27 11:47:06 mw Exp $ }
 
 
 { CrossPoint - UniSel (Boxen, Gruppen, Systeme, Kurznamen, Mime-Typen) }
@@ -158,7 +158,6 @@
     buttons   : string[60];
     bp,rb     : shortint;
     okb,edb   : shortint;
-    aufbau    : boolean;
     c         : char;
     empty     : boolean;
     s         : string[80];
@@ -1102,6 +1101,13 @@
 end.
 {
   $Log: xp9.pas,v $
+  Revision 1.29  2005/09/27 11:47:06  mw
+  MW: - Noch eine Repartur von Edit/Viewer
+
+  Revision 1.28  2005/09/27 11:17:05  mw
+  MW: - Bugfix MIME-Edit (Es wird jede Änderung an den MIME-Viewern wieder
+        angezeigt).
+
   Revision 1.27  2005/08/21 10:47:01  mw
   MW: - Fix Edit/Viewer
 
Index: freexp/xp9bp.pas
===================================================================
RCS file: /server/cvs/freexp/xp9bp.pas,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- freexp/xp9bp.pas	17 Mar 2005 18:54:36 -0000	1.19
+++ freexp/xp9bp.pas	27 Sep 2005 07:25:10 -0000	1.20
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp9bp.pas,v 1.19 2005/03/17 18:54:36 mw Exp $ }
+{ $Id: xp9bp.pas,v 1.20 2005/09/27 07:25:10 mw Exp $ }
 
 { CrossPoint - BoxPar verwalten }
 
@@ -70,9 +70,7 @@
                    zerbid:='2200';
                    lightlogin:=false;
                  end;
-      nt_Fido  : begin
-                   MagicBrett:='/FIDO/';
-                   End;
+      nt_Fido  : MagicBrett:='/FIDO/';
       nt_UUCP  : begin
                    uparcer:='compress -v -b12 $PUFFER';
                    downarcer:='gzip -vdf $DOWNFILE'; {alt: compress}
@@ -106,7 +104,6 @@
     downarcer := 'pkunzip $DOWNFILE';
     uparcext  := 'ZIP';
     downarcext:= 'ZIP';
-    extMailer := '';
     connwait  := 45;
     loginwait := 60;
     redialwait:= 240;
@@ -263,7 +260,6 @@
             gets(s,su,'Download',downloader,100) or
             gets(s,su,'ProtokollTyp',prototyp,1) or
             gets(s,su,'ZMOptions',ZMOptions,60) or
-            gets(s,su,'ExtMailer',extMailer,127) or
             gets(s,su,'UpArc',uparcer,60) or
             gets(s,su,'DownArc',downarcer,60) or
             gets(s,su,'UnFreeze',unfreezer,40) or
@@ -440,11 +436,12 @@
     writeln(t,'Download=',downloader);
     writeln(t,'Protokolltyp=',prototyp);
     writeln(t,'ZMOptions=',zmoptions);
-    If extMailer <> '' Then Writeln(t,'ExtMailer=',extMailer);
     writeln(t,'UpArc=',uparcer);
     writeln(t,'DownArc=',downarcer);
-    If UnFreezer <> '' Then Writeln(t,'UnFreeze=',unfreezer);
-    If Ungzipper <> '' Then Writeln(t,'UnGZIP=',ungzipper);
+    if UnFreezer<>'' then
+      writeln(t,'UnFreeze=',unfreezer);
+    if Ungzipper<>'' then
+      writeln(t,'UnGZIP=',ungzipper);
     writeln(t,'UpArcExt=',uparcext);
     writeln(t,'DownArcExt=',downarcext);
     writeln(t,'ConnWait=',connwait);
@@ -671,6 +668,12 @@
 end.
 {
   $Log: xp9bp.pas,v $
+  Revision 1.20  2005/09/27 07:25:10  mw
+  MW: - Rücknahme einer Änderung von TS (Vorbereitung für
+        Binkly Style Outbound). Diese Änderung war unvollständig
+        und wird auch nicht vollendet, somit ist es besser sie
+        wieder zu entfernen.
+
   Revision 1.19  2005/03/17 18:54:36  mw
   MW: - Bugfix: Wurden Werte in der Boxenkonfiguration geändert, und dabei
                 gleichzeitig nicht die Datenbank ausgelesen, so konnte
Index: freexp/xp9mime.pas
===================================================================
RCS file: /server/cvs/freexp/xp9mime.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- freexp/xp9mime.pas	21 Aug 2005 10:47:01 -0000	1.2
+++ freexp/xp9mime.pas	27 Sep 2005 11:47:06 -0000	1.3
@@ -6,7 +6,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp9mime.pas,v 1.2 2005/08/21 10:47:01 mw Exp $ }
+{ $Id: xp9mime.pas,v 1.3 2005/09/27 11:47:06 mw Exp $ }
 
 { --- Bearbeitungs-Routinen für MIME-Typen-Liste ---------------- }
 {$I XPDEFINE.INC}
@@ -20,7 +20,7 @@
 var  d         : pointer;
      drec      : array[1..maxgl] of longint;
      p0,p,gl   : integer;
-
+     aufbau    : boolean;
 
   procedure ReadMimetyp(edit:boolean; var typ,ext,prog:string;
                         var brk:boolean);
@@ -152,6 +152,9 @@
 end.
 {
   $Log: xp9mime.pas,v $
+  Revision 1.3  2005/09/27 11:47:06  mw
+  MW: - Noch eine Repartur von Edit/Viewer
+
   Revision 1.2  2005/08/21 10:47:01  mw
   MW: - Fix Edit/Viewer
 
Index: freexp/doc/snapshot.dq
===================================================================
RCS file: /server/cvs/freexp/doc/snapshot.dq,v
retrieving revision 1.47
retrieving revision 1.49
diff -u -r1.47 -r1.49
--- freexp/doc/snapshot.dq	21 Aug 2005 10:53:59 -0000	1.47
+++ freexp/doc/snapshot.dq	27 Sep 2005 11:55:04 -0000	1.49
@@ -65,7 +65,8 @@
 K.   3. Inoffizelle Citycarrier-Edition vom 17.03.2005, 20:10 Uhr
 L.   Inoffizelle Extented-Command-Edition vom 06.07.2005, 18:00 Uhr
 M.   Inoffizelle Bezugsverkettungs-Edition vom 21.08.2005, 13:00 Uhr
-N.   Snapshot vom xx.xx.2005, xx:xx Uhr
+N.   2. Inoffizelle Bezugsverkettungs-Edition vom 27.09.2005, 14:00 Uhr
+O.   Snapshot vom xx.xx.2005, xx:xx Uhr
 ###
 
 1. FreeXP - Support und Kontakte
@@ -4803,11 +4804,33 @@
   Edit/Viewer funktionsunfähig gemacht. Soll
   heißen: Bei jedem Änderungsversuch kam es
   zum Absturz wegen DB-Error.
-  XP9.PAS, Xp9MIME.PAS
+  XP9.PAS, XP9MIME.PAS
+
+%
+%
+%2. Inoffizelle Bezugsverkettungs-Edition vom 27.09.2005, 14:00 Uhr
+%------------------------------------------------------------------
+N.   2. Inoffizelle Bezugsverkettungs-Edition vom 27.09.2005, 14:00 Uhr
+-----------------------------------------------------------------------
+■  27.09.2005
+-------------
+MW:
+%-  Ausbau verwirrender und nutzloses Optionen zu Binkley-Style-Outbound
+- FreeXP enthielt angefangene aber nicht mehr weitergeführte Optionen
+  zu Binkley-Style-Outbounds und externen FIDO-Mailern. Diese Optionen
+  sind jetzt entfernt.
+  XP-D.RQ, XP-E.RQ, XP0.PAS, XP2C.PAS, XP2CFG.INC, XP9.INC,
+  XP9BP.PAS, XP-FM.PAS, XP.IHQ
+
+MW:
+%!  Edit/Viewer zeigt Änderungen jetzt wieder sofort an.
+- Nach der letzten Änderung wurde der Bildschirm nicht
+  sofort aktualisiert. Dies erfolgt jetzt wieder.
+  XP9.PAS, XP9MIME.PAS
 
 %
 %
 %Snapshot vom xx.xx.2005, xx:xx Uhr
 %----------------------------------
-N.   Snapshot vom xx.xx.2005, xx:xx Uhr
+O.   Snapshot vom xx.xx.2005, xx:xx Uhr
 ---------------------------------------
Index: freexp/doc/xp.ihq
===================================================================
RCS file: /server/cvs/freexp/doc/xp.ihq,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -r1.77 -r1.78
--- freexp/doc/xp.ihq	3 Mar 2005 18:47:01 -0000	1.77
+++ freexp/doc/xp.ihq	27 Sep 2005 10:28:32 -0000	1.78
@@ -4073,18 +4073,6 @@
 für die Optionen -ld, -lz, -oX, -p, -ts und -q.
 
 @
-8043
-<<Nur für erfahrene Anwender:
-
-Hier koennen Sie einen externen FIDO-Mailer angeben.
-Normalerweise sollte dieses Feld freibleiben - der 
-XP interne Fido-Mailer wird verwendet.
-Voraussetzung dafür ist, daß in den FIDO-Optionen die
-Verwendung eines Binkley-Style-Outbounds eingerichtet
-wurde.
-Der Aufruf kann u.a. zum Aufruf von binkd verwendet
-werden.
-@
 8000
 Bei einigen (sehr wenigen) Fido-Boxen ist es nötig,
 daß das Pointpaßwort ("Session-Paßwort") zusätzlich
@@ -11984,26 +11972,6 @@
 Wenn Sie z.B. in Ludwigshafen wohnen, dann geben Sie
 hier 49-621 ein.
 @
-723
-<<[x]>> -> Der FIDO-Mailer verwendet eine Binkley-
-       Style-Outbound Struktur (BSO).
-       Externe FIDO-Mailer setzen haeufig diesen
-       Aufbau voraus. Der XP-interne FIDO-Mailer
-       benoetigt keinen BSO.
-
-<<[ ]>> -> Es wird die XP-eigene Outbound-Struktur
-       verwendet (kompatibel mit alten XP Versionen).
-@
-724
-Wenn der Binkley-Style-Outbound aktiviert ist, kann
-hier die Standard-Zone fuer den BSO angegeben werden.
-Diese Angabe sollte mit der Zonennummer Ihrer FIDO-
-Stammbox uebereinstimmen.
-
-Achtung! Wird hier 0 angegeben, wird der BSO fuer
-alle Zonen identisch aufgebaut!
-
-@
 725
 <<[x]>> -> Falls Node- oder Pointlisten aktiviert sind,
        werden eingehende Node- und Pointdiffdateien
Index: freexp/doc/zpr.dq
===================================================================
RCS file: /server/cvs/freexp/doc/zpr.dq,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- freexp/doc/zpr.dq	2 Aug 2003 21:19:32 -0000	1.3
+++ freexp/doc/zpr.dq	27 Sep 2005 17:48:21 -0000	1.4
@@ -160,7 +160,7 @@
 Alle hier nicht aufgeführten Headerzeilen werden von ZPR ignoriert und bei
 Schalter -r unverändert in die reparierte Datei übernommen.
 
-ABS, BEZ, EDA, EMP, LEN, MID und ROT sind Pflichtzeilen. Am Vorhandensein
+ABS, BET, EDA, EMP, LEN, MID und ROT sind Pflichtzeilen. Am Vorhandensein
 dieser sieben Zeilen erkennt ZPR einen gültigen Header.
 
 



Mehr Informationen über die CVS-List Mailingliste