Index: freexp/xp2.pas
===================================================================
RCS file: /server/cvs/freexp/xp2.pas,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -r1.69 -r1.70
--- freexp/xp2.pas 2 Jan 2006 12:28:51 -0000 1.69
+++ freexp/xp2.pas 19 May 2006 15:41:41 -0000 1.70
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp2.pas,v 1.69 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xp2.pas,v 1.70 2006/05/19 15:41:41 mw Exp $ }
{ CrossPoint - StartUp }
@@ -58,7 +58,6 @@
procedure testdiskspace;
procedure testfilehandles;
procedure TestAutostart;
-procedure ReadDomainlist;
procedure setAutoTZ(const XPStart:boolean);
procedure checkTimeZone(const XPStart:boolean);
@@ -1092,73 +1091,13 @@
quit:=quit or ((f>time) and (t<time));
end;
-
-
-procedure ReadDomainlist;
-var d : DB;
- p : DomainNodeP;
- dom : string[120];
-
- function smaller(dl:DomainNodeP):boolean;
- begin
- smaller:=(dom<dl^.domain^);
- end;
-
- procedure InsertIntoList(var dl:DomainNodeP);
- begin
- if dl=nil then
- dl:=p
- else
- if smaller(dl) then
- InsertIntoList(dl^.left)
- else
- InsertIntoList(dl^.right);
- end;
-
- procedure freeDomainList(var DomainList:DomainNodeP);
- var lauf : DomainNodeP;
- begin
- if Assigned(Domainlist) then begin
- freeDomainList(DomainList^.left);
- lauf:=DomainList^.right;
- Dispose(DomainList);
- freeDomainList(lauf);
- end;
- end;
-
-begin
- freeDomainList(DomainList);
- DomainList:=nil;
- dbOpen(d,BoxenFile,0);
- while not dbEOF(d) do
- begin
- inc(ntused[dbReadInt(d,'netztyp')]);
- if ntDomainReply(dbReadInt(d,'netztyp')) then
- begin
- new(p);
- if dbReadInt(d,'netztyp') in [nt_UUCP,nt_Client] then begin
- dom:=lstr(dbReadStr(d,'fqdn'));
- if dom='' then
dom:=lstr(dbReadStr(d,'pointname')+dbReadStr(d,'domain'));
- end
- else begin
- dom:=lstr(dbReadStr(d,'fqdn'));
- if dom='' then
dom:=lstr(dbReadStr(d,'pointname')+'.'+dbReadStr(d,'boxname')+
- dbReadStr(d,'domain'));
- end;
- getmem(p^.domain,length(dom)+1);
- p^.domain^:=dom;
- p^.left:=nil;
- p^.right:=nil;
- insertintolist(DomainList);
- end;
- dbNext(d);
- end;
- dbClose(d);
-end;
-
end.
{
$Log: xp2.pas,v $
+ Revision 1.70 2006/05/19 15:41:41 mw
+ MW: - Auslagern von ReadDomainlist nach xp2m (Codesegment so groß)
+ - Anpassung von Readdomainlist an die neuen MIDs.
+
Revision 1.69 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp2m.pas
===================================================================
RCS file: /server/cvs/freexp/xp2m.pas,v
retrieving revision 1.10
retrieving revision 1.12
diff -u -r1.10 -r1.12
--- freexp/xp2m.pas 2 Jan 2006 12:28:51 -0000 1.10
+++ freexp/xp2m.pas 19 May 2006 17:09:45 -0000 1.12
@@ -6,7 +6,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp2m.pas,v 1.10 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xp2m.pas,v 1.12 2006/05/19 17:09:45 mw Exp $ }
{ CrossPoint - Erweitertes Startup fuer FreeXP }
@@ -25,10 +25,11 @@
procedure testmpuffer;
procedure test_dll;
+procedure ReadDomainlist;
implementation
-uses xp2b,xp1o,xpe,xp3,xp9bp,xp9,xpnt,xpfido,xpkeys,xpreg,xpovl;
+uses xp2b,xp1o,xpe,xp3,xp9bp,xp9,xpnt,xpfido,xpkeys,xpreg,xpovl,md5;
procedure testmpuffer;
var i : byte;
@@ -97,11 +98,86 @@
end;
end;
+procedure ReadDomainlist;
+var d : DB;
+ p : DomainNodeP;
+ dom : string[120];
+ t : byte;
+
+ function smaller(dl:DomainNodeP):boolean;
+ begin
+ smaller:=(dom<dl^.domain^);
+ end;
+
+ procedure InsertIntoList(var dl:DomainNodeP);
+ begin
+ if dl=nil then
+ dl:=p
+ else
+ if smaller(dl) then
+ InsertIntoList(dl^.left)
+ else
+ InsertIntoList(dl^.right);
+ end;
+
+ procedure freeDomainList(var DomainList:DomainNodeP);
+ var lauf : DomainNodeP;
+ begin
+ if Assigned(Domainlist) then begin
+ freeDomainList(DomainList^.left);
+ lauf:=DomainList^.right;
+ Dispose(DomainList);
+ freeDomainList(lauf);
+ end;
+ end;
+
+begin
+ freeDomainList(DomainList);
+ DomainList:=nil;
+ dbOpen(d,BoxenFile,0);
+ while not dbEOF(d) do
+ begin
+ inc(ntused[dbReadInt(d,'netztyp')]);
+ if ntDomainReply(dbReadInt(d,'netztyp')) then
+ begin
+ new(p);
+ t:=dbReadInt(d,'netztyp');
+ if t in [nt_UUCP] then begin
+ dom:=lstr(dbReadStr(d,'fqdn'));
+ if dom='' then
dom:=lstr(dbReadStr(d,'pointname')+dbReadStr(d,'domain'));
+ end
+ else if t in [nt_Client] then begin
+ dom:=lstr(dbReadStr(d,'fqdn'));
+ if dom='' then
dom:=lstr(md5sum_str(dbReadStr(d,'email'))+'.mids.freexp.de');
+ end
+ else
+ begin
+ dom:=lstr(dbReadStr(d,'fqdn'));
+ if dom='' then
dom:=lstr(dbReadStr(d,'pointname')+'.'+dbReadStr(d,'boxname')+
+ dbReadStr(d,'domain'));
+ end;
+ getmem(p^.domain,length(dom)+1);
+ p^.domain^:=dom;
+ p^.left:=nil;
+ p^.right:=nil;
+ insertintolist(DomainList);
+ end;
+ dbNext(d);
+ end;
+ dbClose(d);
+end;
begin
end.
{
$Log: xp2m.pas,v $
+ Revision 1.12 2006/05/19 17:09:45 mw
+ MW: - lstr ergänzt
+
+ Revision 1.11 2006/05/19 15:41:41 mw
+ MW: - Auslagern von ReadDomainlist nach xp2m (Codesegment so groß)
+ - Anpassung von Readdomainlist an die neuen MIDs.
+
Revision 1.10 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp6.pas
===================================================================
RCS file: /server/cvs/freexp/xp6.pas,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -r1.54 -r1.55
--- freexp/xp6.pas 7 Feb 2006 14:58:32 -0000 1.54
+++ freexp/xp6.pas 19 May 2006 13:27:09 -0000 1.55
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp6.pas,v 1.54 2006/02/07 14:58:32 mw Exp $ }
+{ $Id: xp6.pas,v 1.55 2006/05/19 13:27:09 mw Exp $ }
{ MH: PGP-Sig auch in RFC, Zurück Button f. alle Netztypen }
@@ -114,7 +114,7 @@
implementation { --------------------------------------------------- }
uses xp1o,xp2,xp2b,xp3,xp3o,xp3o2,xp3ex,xp4e,xp6o,xp9,xp9bp,xpcc,xpnt,
- xpfido,xp_pgp,xp6l,xms,xpovl,encoder;
+ xpfido,xp_pgp,xp6l,xms,xpovl,encoder,md5;
procedure ukonv(typ:byte; var data; var bytes:word); assembler;
asm
@@ -2569,6 +2569,9 @@
end.
{
$Log: xp6.pas,v $
+ Revision 1.55 2006/05/19 13:27:09 mw
+ MW: - Automatische Generierung von MSG-IDs verändert.
+
Revision 1.54 2006/02/07 14:58:32 mw
MW: - Ein Rufname steht in Klammern und Anführungszeichen
Index: freexp/xp6s.inc
===================================================================
RCS file: /server/cvs/freexp/xp6s.inc,v
retrieving revision 1.27
retrieving revision 1.29
diff -u -r1.27 -r1.29
--- freexp/xp6s.inc 7 Feb 2006 14:44:20 -0000 1.27
+++ freexp/xp6s.inc 19 May 2006 17:09:45 -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: xp6s.inc,v 1.27 2006/02/07 14:44:20 mw Exp $ }
+{ $Id: xp6s.inc,v 1.29 2006/05/19 17:09:45 mw Exp $ }
{ Unterroutinen für XP6.PAS }
@@ -470,8 +470,9 @@
else _domain:=rev+'@'+lstr(pointname)+domain;
nt_Quick,
nt_GS : _domain:=rev+'@'+pointname;
- nt_UUCP,
- nt_Client : if fqdn='' then _domain:=rev+'@'+pointname+domain
+ nt_UUCP : if fqdn='' then _domain:=rev+'@'+pointname+domain
+ else _domain:=rev+'@'+fqdn;
+ nt_Client : if fqdn='' then
_domain:=rev+'@'+lstr(md5sum_str(email)+'.mids.freexp.de')
else _domain:=rev+'@'+fqdn;
else
_domain:='@'+box;
@@ -1199,6 +1200,12 @@
end;
{
$Log: xp6s.inc,v $
+ Revision 1.29 2006/05/19 17:09:45 mw
+ MW: - lstr ergänzt
+
+ Revision 1.28 2006/05/19 13:27:09 mw
+ MW: - Automatische Generierung von MSG-IDs verändert.
+
Revision 1.27 2006/02/07 14:44:20 mw
MY: - Verbesserung der Absicherung der XP-Werbesignatur
Index: freexp/xp9.pas
===================================================================
RCS file: /server/cvs/freexp/xp9.pas,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- freexp/xp9.pas 7 Mar 2006 18:08:03 -0000 1.36
+++ freexp/xp9.pas 19 May 2006 15:41:41 -0000 1.37
@@ -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.36 2006/03/07 18:08:03 mw Exp $ }
+{ $Id: xp9.pas,v 1.37 2006/05/19 15:41:41 mw Exp $ }
{ CrossPoint - UniSel (Boxen, Gruppen, Systeme, Kurznamen, Mime-Typen) }
@@ -74,7 +74,7 @@
implementation {---------------------------------------------------}
uses
- xp2b,xp2,xp3,xp3o,xp4rta,xp9bp,xp9sel,xp10,lister,xpterm,xpovl,xp9mime;
+ xp2b,xp2,xp2m,xp3,xp3o,xp4rta,xp9bp,xp9sel,xp10,lister,xpterm,xpovl,xp9mime;
{$IFDEF FPC }
@@ -1112,6 +1112,10 @@
end.
{
$Log: xp9.pas,v $
+ Revision 1.37 2006/05/19 15:41:41 mw
+ MW: - Auslagern von ReadDomainlist nach xp2m (Codesegment so groß)
+ - Anpassung von Readdomainlist an die neuen MIDs.
+
Revision 1.36 2006/03/07 18:08:03 mw
MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
unbeabsichtigte Anlegen von LFNs verhindert.
Index: freexp/xp9sel.pas
===================================================================
RCS file: /server/cvs/freexp/xp9sel.pas,v
retrieving revision 1.18
retrieving revision 1.20
diff -u -r1.18 -r1.20
--- freexp/xp9sel.pas 7 Mar 2006 18:08:03 -0000 1.18
+++ freexp/xp9sel.pas 19 May 2006 17:09:45 -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: xp9sel.pas,v 1.18 2006/03/07 18:08:03 mw Exp $ }
+{ $Id: xp9sel.pas,v 1.20 2006/05/19 17:09:45 mw Exp $ }
{ CrossPoint - UniSel: Select-/Test-Routinen fuer Unisel-Menüs }
@@ -82,7 +82,7 @@
implementation
uses
- xp2b,xp2,xp3,xp3o,xp4e,xp9,xp9bp,xp10,xpnt,xpterm,xpovl,lister;
+ xp2b,xp2,xp3,xp3o,xp4e,xp9,xp9bp,xp10,xpnt,xpterm,xpovl,lister,md5;
type box_array = array[0..maxboxen] of string[BoxNameLen];
@@ -1791,6 +1791,7 @@
exit;
end;
xp9_setclientFQDN:=true;
+ mappendsel(6,false,lstr(md5sum_str(s)+'.mids.freexp.de'));
s1:=s; s1[b]:='.';
for u:=cposx('_',s1) to length(s1) do
if s1[u]='_' then s1[u]:='-';
@@ -2110,6 +2111,12 @@
{
$Log: xp9sel.pas,v $
+ Revision 1.20 2006/05/19 17:09:45 mw
+ MW: - lstr ergänzt
+
+ Revision 1.19 2006/05/19 13:27:09 mw
+ MW: - Automatische Generierung von MSG-IDs verändert.
+
Revision 1.18 2006/03/07 18:08:03 mw
MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
unbeabsichtigte Anlegen von LFNs verhindert.
Index: freexp/doc/xp.ihq
===================================================================
RCS file: /server/cvs/freexp/doc/xp.ihq,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -r1.78 -r1.79
--- freexp/doc/xp.ihq 27 Sep 2005 10:28:32 -0000 1.78
+++ freexp/doc/xp.ihq 19 May 2006 13:25:22 -0000 1.79
@@ -5352,13 +5352,13 @@
Sie diese hier ein.
Bei Teilnehmern, die keine eigene Domain besitzen,
-ist es gängige und sinnvolle Praxis, hier die eigene
-eMail-Adresse einzutragen und dabei das "<<\@>>"-Zeichen
-durch einen Punkt ("<<.>>") zu ersetzen. Mit der Taste
-<<<F2> >>erzeugt XP einen solchen FQDN für Sie automa-
-tisch. Für T-Online-User wird dabei ein spezifischer
-FQDN generiert, den T-Online ausdrücklich als
-gültigen und zulässigen FQDN zur Verfügung stellt
+ist es gängige Praxis, hier die eigene eMail-Adresse
+einzutragen und dabei das "<<\@>>"-Zeichen durch einen
+Punkt ("<<.>>") zu ersetzen. Mit der Taste <<<F2> >>
+wird XP einen solchen FQDN vorschlagen.
+Für T-Online-User wird dabei ein spezifischer FQDN
+generiert, den T-Online ausdrücklich als gültigen
+und zulässigen FQDN zur Verfügung stellt
("<<<eMail-Alias>.dialin.t-online.de>>").
Unterstriche "<<_>>" sind in FQDNs nicht zulässig und
@@ -5375,28 +5375,27 @@
verkettung führen.
Wenn Sie dieses Feld freilassen, erhalten Ihre Nach-
-richten die Message-ID <<Zufallszahl>>\@<<Domain>>.<<TLD>>, also
-z.B. "[EMAIL PROTECTED]" (<<TLD>>=<<T>>op <<L>>evel <<D>>omain,
-".de" ".com", ".net", ".org" usw.). Dies wird aller-
-dings zu Problemen im Zusammenhang mit der farblichen
-Hervorhebung von Antworten auf eigene Nachrichten in
-XP führen, da der Teil rechts vom "<<\@>>" der Message-ID
-dann nicht mehr eindeutig ist und XP alle Antworten
-hervorheben würde, die sich auf Nachrichten beziehen,
-deren rechter Teil der Message-ID ebenfalls aus dem
-FQDN "freexp.de" bestehen.
-
-Sie sollten daher dieses Feld *nicht* freilassen und
-einen ausschließlich von Ihnen verwendeten, vom News-
-Server als zulässig anerkannten Namen eintragen, um
-so die Eindeutigkeit des FQDN sicherzustellen. Die
-Eindeutigkeit des FQDN ist nur für öffentliche Nach-
-richten (Artikel/Postings = AMs) innerhalb von XP
-relevant. Uneindeutige FQDNs wie "t-online.de" sind
-absolut RFC-konform (weil "fully qualified"), die
-RFC-Forderung nach Eindeutigkeit bezieht sich auf die
-Message-ID insgesamt.
-
+richten automatisch die Message-ID
+<<Zufallszahl>>[EMAIL PROTECTED](<<E-Mail>>).mids.freexp.de,
+also z.B.
+"[EMAIL PROTECTED]"
+Mit der Taste <<F2>> wird XP so einen FQDN ebenfalls
+vorschlagen.
+
+Sie können bei [EMAIL PROTECTED] sich auch einen
+kürzeren FQDN registerien lassen. Dieser ist dann
+nach dem Schema $Ihre_Wahl.fdqn.freexp.de gebildet
+und führt damit zu Message-IDs der Art
+"[EMAIL PROTECTED]"
+
+Sie können hier aber jeden vom News-Server als zulässig
+anerkannten Namen eintragen, um die Eindeutigkeit des
+FQDN sicherzustellen. Die Eindeutigkeit des FQDN ist nur
+für öffentliche Nachrichten (Artikel/Postings = AMs)
+innerhalb von XP relevant. Uneindeutige FQDNs wie
+"t-online.de" sind absolut RFC-konform
+(weil "fully qualified"), die RFC-Forderung nach
+Eindeutigkeit bezieht sich auf die Message-ID insgesamt.
<<Hinweis:>> Welche Kunststücke auch immer Sie mit der
Möglichkeit, einen FQDN in CrossPoint konfigurieren
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
