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
