Index: freexp/maggi.pas
===================================================================
RCS file: /server/cvs/freexp/maggi.pas,v
retrieving revision 1.29
retrieving revision 1.31
diff -u -r1.29 -r1.31
--- freexp/maggi.pas 2 Jan 2006 12:28:50 -0000 1.29
+++ freexp/maggi.pas 31 Jan 2006 12:16:51 -0000 1.31
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: maggi.pas,v 1.29 2006/01/02 12:28:50 mw Exp $ }
+{ $Id: maggi.pas,v 1.31 2006/01/31 12:16:51 mw Exp $ }
{ ZConnect <-> Magic/Quick - Konvertierer }
{ PM 04/92 }
@@ -161,6 +161,7 @@
{ 01/2000 oh }
Cust1,Cust2: string[custheadlen];
{ /oh }
+ Cust3 : string;
control : string[150];
end;
@@ -177,7 +178,8 @@
{ 01/2000 oh : wird zum Einlesen der Customizable Headerlines benötigt }
const
- mheadercustom : array[1..2] of string[custheadlen] = ('','');
+ mheadercustom : array[1..3] of string[custheadlen] = ('','','');
+ cust3len: byte = 255;
procedure logo;
begin
@@ -1837,6 +1839,19 @@
end.
{
$Log: maggi.pas,v $
+ Revision 1.31 2006/01/31 12:16:51 mw
+ MW: - Automatisches Beachten der sinnvollen Länger von Custom-Header 3
+ wenn vor der Benutzung cust3len sinnvoll gesetzt wird.
+
+ Revision 1.30 2006/01/31 12:02:43 mw
+ MW: - Neuer interner Custom-Header (nur für den internen Gebrauch um
+ nach beliebigen Headern suchen zu können (z.B. U-Sender))
+ Dieser Header wurde notwendig, da für die Bearbeitung von Cancel
+ und Supersedes bisher der Custom-Header 1 mißbarucht wurde.
+ Dieser hat aber im Gegensatz zu allen anderen Headern mit Adress-
+ Informationen nur 60 Zeichen Länge. Adressheader können aber bis
+ zu 80 Zeichen haben.
+
Revision 1.29 2006/01/02 12:28:50 mw
MW: - Frohes neues Jahr 2006
Index: freexp/pmconv.pas
===================================================================
RCS file: /server/cvs/freexp/pmconv.pas,v
retrieving revision 1.9
retrieving revision 1.11
diff -u -r1.9 -r1.11
--- freexp/pmconv.pas 2 Jan 2006 12:28:50 -0000 1.9
+++ freexp/pmconv.pas 31 Jan 2006 12:16:51 -0000 1.11
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: pmconv.pas,v 1.9 2006/01/02 12:28:50 mw Exp $ }
+{ $Id: pmconv.pas,v 1.11 2006/01/31 12:16:51 mw Exp $ }
{ PMs mit TO-ID versehen }
@@ -47,7 +47,8 @@
readempflist = false;
readkoplist = false;
readOemList = false;
- mheadercustom : array[1..2] of string[custheadlen] = ('','');
+ mheadercustom : array[1..3] of string[custheadlen] = ('','','');
+ cust3len: byte = 255;
type empfnodep=^empfnode;
empfnode= record
@@ -119,6 +120,7 @@
mimetyp : string[30];
xnoarchive: boolean;
Cust1,Cust2: string[custheadlen];
+ Cust3 : string;
control : string[150];
end;
@@ -281,6 +283,19 @@
end.
{
$Log: pmconv.pas,v $
+ Revision 1.11 2006/01/31 12:16:51 mw
+ MW: - Automatisches Beachten der sinnvollen Länger von Custom-Header 3
+ wenn vor der Benutzung cust3len sinnvoll gesetzt wird.
+
+ Revision 1.10 2006/01/31 12:02:43 mw
+ MW: - Neuer interner Custom-Header (nur für den internen Gebrauch um
+ nach beliebigen Headern suchen zu können (z.B. U-Sender))
+ Dieser Header wurde notwendig, da für die Bearbeitung von Cancel
+ und Supersedes bisher der Custom-Header 1 mißbarucht wurde.
+ Dieser hat aber im Gegensatz zu allen anderen Headern mit Adress-
+ Informationen nur 60 Zeichen Länge. Adressheader können aber bis
+ zu 80 Zeichen haben.
+
Revision 1.9 2006/01/02 12:28:50 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp0.pas
===================================================================
RCS file: /server/cvs/freexp/xp0.pas,v
retrieving revision 1.77
retrieving revision 1.79
diff -u -r1.77 -r1.79
--- freexp/xp0.pas 2 Jan 2006 12:28:50 -0000 1.77
+++ freexp/xp0.pas 31 Jan 2006 12:16:51 -0000 1.79
@@ -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.77 2006/01/02 12:28:50 mw Exp $ }
+{ $Id: xp0.pas,v 1.79 2006/01/31 12:16:51 mw Exp $ }
{ CrossPoint - Deklarationen }
@@ -453,6 +453,7 @@
mimetyp : string[30];
xnoarchive : boolean;
Cust1,Cust2: CustHeadStr;
+ Cust3 : string; { interner Custom-Headerstring }
control : string[150];
end;
headerp = ^header;
@@ -842,7 +843,8 @@
GPG = 'GnuPG';
PGPVersion : string[5] = PGP2;
- mheadercustom : array[1..2] of string[custheadlen] = ('','');
+ mheadercustom : array[1..3] of string[custheadlen] = ('','','');
+ cust3len: byte = 255;
MsgFeldDef = 'FGDAEB'; { Standardreihenfolge: Feldtausch
Nachrichtenliste }
UsrFeldDef = 'FHBGAK'; { Standardreihenfolge: Feldtausch Userliste }
@@ -1246,6 +1248,19 @@
{
$Log: xp0.pas,v $
+ Revision 1.79 2006/01/31 12:16:51 mw
+ MW: - Automatisches Beachten der sinnvollen Länger von Custom-Header 3
+ wenn vor der Benutzung cust3len sinnvoll gesetzt wird.
+
+ Revision 1.78 2006/01/31 12:02:42 mw
+ MW: - Neuer interner Custom-Header (nur für den internen Gebrauch um
+ nach beliebigen Headern suchen zu können (z.B. U-Sender))
+ Dieser Header wurde notwendig, da für die Bearbeitung von Cancel
+ und Supersedes bisher der Custom-Header 1 mißbarucht wurde.
+ Dieser hat aber im Gegensatz zu allen anderen Headern mit Adress-
+ Informationen nur 60 Zeichen Länge. Adressheader können aber bis
+ zu 80 Zeichen haben.
+
Revision 1.77 2006/01/02 12:28:50 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp3o.inc
===================================================================
RCS file: /server/cvs/freexp/xp3o.inc,v
retrieving revision 1.44
retrieving revision 1.48
diff -u -r1.44 -r1.48
--- freexp/xp3o.inc 10 Jan 2006 21:43:56 -0000 1.44
+++ freexp/xp3o.inc 31 Jan 2006 14:32:36 -0000 1.48
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp3o.inc,v 1.44 2006/01/10 21:43:56 mw Exp $ }
+{ $Id: xp3o.inc,v 1.48 2006/01/31 14:32:36 mw Exp $ }
procedure readpuffer;
@@ -113,7 +113,7 @@
num_cmessages : integer; { Anzahl Controlmessages (Cancels/Supersedes) }
orgempf : string[AdrLen];
mbflags : longint;
- cust_header : custheadstr;
+{ cust_header : custheadstr; }
flags : longint;
ReplHalteFlag: byte;
lcol : byte;
@@ -237,11 +237,14 @@
{ auch gegen 'wab' prüfen, weil 'Sender:' in dem einen }
{ wie in dem anderen Header gelandet sein kann (je nach }
{ UUZ, der das zu ersetzende Posting konvertiert hat). }
- { 10.01.06 MW: sender und abs endlich gleichberechtigt }
- okay:=(((hdp2^.absender=sender) or (hdp2^.cust1=sender) or
- (hdp2^.wab=sender) and (sender<>'')) or
- (hdp2^.absender=abs) or (hdp2^.cust1=abs) or
- (hdp2^.wab=abs)) and (hdp2^.msgid=id);
+ { 10.01.06 MW: sender und abs endlich gleichberechtigt }
+ { 31.01.06 MW: cust1 durch cust3 ersetzt, da Cust1 nur }
+ { 60 Zeichen speichert }
+ okay:=(hdp2^.msgid=id) and
+ (((sender<>'') and (hdp2^.absender=sender) or
+ (hdp2^.cust3=sender) or (hdp2^.wab=sender)) or
+ (hdp2^.absender=abs) or (hdp2^.cust3=abs) or
+ (hdp2^.wab=abs));
end;
begin
@@ -278,7 +281,7 @@
procedure bearbeite_cancels_supersedes;
var id : string[MidLen];
abs: string[AdrLen];
- sender :custheadstr;
+ sender :AdrStr;
str: string[20];
rec: longint;
n : longint;
@@ -436,8 +439,8 @@
writeln(cmessagefile,'supersedes');
writeln(cmessagefile,ersetzt);
writeln(cmessagefile,absender);
- if cust1<>'' then
- writeln(cmessagefile,cust1)
+ if cust3<>'' then
+ writeln(cmessagefile,cust3)
else
writeln(cmessagefile,wab);
inc(num_cmessages);
@@ -448,8 +451,8 @@
writeln(cmessagefile,dbRecno(mbase));
writeln(cmessagefile,trim(mid(control,8)));
writeln(cmessagefile,absender);
- if cust1<>'' then
- writeln(cmessagefile,cust1)
+ if cust3<>'' then
+ writeln(cmessagefile,cust3)
else
writeln(cmessagefile,wab);
inc(num_cmessages);
@@ -797,8 +800,8 @@
today:=ixDat(dat);
dbStopHU(mbase);
- cust_header:=mheadercustom[1];
- mheadercustom[1]:='U-Sender'; { 'U-Sender'-Header erkennen }
+ mheadercustom[3]:='U-Sender'; { 'U-Sender'-Header erkennen }
+ cust3len:=80;
repeat
empfnr:=1;
@@ -1203,8 +1206,7 @@
close(brettlog);
close(userlog);
puffereinlesen:=true;
-
- mheadercustom[1]:=cust_header; { Custom-Header wieder zuruecksetzen }
+
end { if Puffer_ok }
else begin
@@ -1277,6 +1279,31 @@
end;
{
$Log: xp3o.inc,v $
+ Revision 1.48 2006/01/31 14:32:36 mw
+ MW: - Kleine Optimierung der Cancel/Supersedes-Prüfroutine
+ als Vorsichtsmaßnahme gegen Performace-Probleme
+ (Die Routine sollte der Compiler auch so optimieren
+ können)
+
+ Revision 1.47 2006/01/31 12:16:51 mw
+ MW: - Automatisches Beachten der sinnvollen Länger von Custom-Header 3
+ wenn vor der Benutzung cust3len sinnvoll gesetzt wird.
+
+ Revision 1.46 2006/01/31 12:02:43 mw
+ MW: - Neuer interner Custom-Header (nur für den internen Gebrauch um
+ nach beliebigen Headern suchen zu können (z.B. U-Sender))
+ Dieser Header wurde notwendig, da für die Bearbeitung von Cancel
+ und Supersedes bisher der Custom-Header 1 mißbarucht wurde.
+ Dieser hat aber im Gegensatz zu allen anderen Headern mit Adress-
+ Informationen nur 60 Zeichen Länge. Adressheader können aber bis
+ zu 80 Zeichen haben.
+
+ Revision 1.45 2006/01/31 10:10:52 mw
+ MW: - Bugfix: CustHeadLen beträgt nur 60, alle anderen Adressangaben
+ können aber bis zu 80 Zeichen lang sein. Daher wird
+ Sender jetzt als Adrstr definiert, welcher 80 Zeichen
+ lang sein darf.
+
Revision 1.44 2006/01/10 21:43:56 mw
MW: - Optimierung der Superseed/Cancel-Prüfroutine.
Index: freexp/xpmakehd.inc
===================================================================
RCS file: /server/cvs/freexp/xpmakehd.inc,v
retrieving revision 1.21
retrieving revision 1.23
diff -u -r1.21 -r1.23
--- freexp/xpmakehd.inc 2 Jan 2006 12:28:49 -0000 1.21
+++ freexp/xpmakehd.inc 31 Jan 2006 12:16:51 -0000 1.23
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xpmakehd.inc,v 1.21 2006/01/02 12:28:49 mw Exp $ }
+{ $Id: xpmakehd.inc,v 1.23 2006/01/31 12:16:51 mw Exp $ }
{ beliebig großen Netcall- oder ZConnect-Header auswerten }
{ wird in XP3, MAGGI und XPCHECK included }
@@ -588,6 +588,9 @@
if id = UStr(mheadercustom[2]) then
LRead(Cust2,CustHeadLen);
+ { Interner Customheader }
+ if id = UStr(mheadercustom[3]) then Lread(Cust3,cust3len);
+
line:='*';
end;
end
@@ -624,6 +627,19 @@
end;
{
$Log: xpmakehd.inc,v $
+ Revision 1.23 2006/01/31 12:16:51 mw
+ MW: - Automatisches Beachten der sinnvollen Länger von Custom-Header 3
+ wenn vor der Benutzung cust3len sinnvoll gesetzt wird.
+
+ Revision 1.22 2006/01/31 12:02:42 mw
+ MW: - Neuer interner Custom-Header (nur für den internen Gebrauch um
+ nach beliebigen Headern suchen zu können (z.B. U-Sender))
+ Dieser Header wurde notwendig, da für die Bearbeitung von Cancel
+ und Supersedes bisher der Custom-Header 1 mißbarucht wurde.
+ Dieser hat aber im Gegensatz zu allen anderen Headern mit Adress-
+ Informationen nur 60 Zeichen Länge. Adressheader können aber bis
+ zu 80 Zeichen haben.
+
Revision 1.21 2006/01/02 12:28:49 mw
MW: - Frohes neues Jahr 2006
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
