CVS daily diff
FreeXP CVS-Server
cvs-list at freexp.de
Son Apr 10 00:00:18 CEST 2005
Index: freexp/xp4rta.pas
===================================================================
RCS file: /server/cvs/freexp/xp4rta.pas,v
retrieving revision 1.5
retrieving revision 1.7
diff -u -r1.5 -r1.7
--- freexp/xp4rta.pas 1 Jan 2005 11:16:30 -0000 1.5
+++ freexp/xp4rta.pas 9 Apr 2005 15:55:52 -0000 1.7
@@ -7,7 +7,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp4rta.pas,v 1.5 2005/01/01 11:16:30 mw Exp $ }
+{ $Id: xp4rta.pas,v 1.7 2005/04/09 15:55:52 mw Exp $ }
{ CrossPoint - Reply-To-All- (RTA) Routinen }
@@ -200,7 +200,7 @@
adresse := s;
s := '';
end;
- if is_mailaddress (adresse) then
+ if is_mailaddress (adresse,false) then
insertNode (notEigeneAdressenBaum, uStr (adresse));
until s = '';
end;
@@ -248,7 +248,7 @@
adresse := s;
s := '';
end;
- if is_mailaddress (adresse) and not eigeneAdresse (notEigeneAdressenbaum, adresse) then
+ if is_mailaddress (adresse,false) and not eigeneAdresse (notEigeneAdressenbaum, adresse) then
insertNode (eigeneAdressenBaum, uStr (adresse));
until s = '';
end;
@@ -491,7 +491,7 @@
or (uEmpf = uStr (hdp^.pmReplyTo))
or (uEmpf = uStr (hdp^.wab))
or (uEmpf = uStr (hdp^.oab))
- or (not is_mailaddress (lauf^.empf))
+ or (not is_mailaddress (lauf^.empf,false))
{or (eigeneAdresse (lauf^.empf) and (lauf^.typ <> 9))} then
removeFromList (list, vor, lauf)
else begin
@@ -814,18 +814,18 @@
end;
begin
- if is_mailaddress (hdp^.pmReplyTo) then { 'Reply-To-Empfänger :' }
+ if is_mailaddress (hdp^.pmReplyTo,false) then { 'Reply-To-Empfänger :' }
add (hdp^.pmReplyTo, 7, not eigeneAdresse (eigeneAdressenbaum, hdp^.pmReplyTo),
pmReplyToHasVertreter, pmReplyToIsUnknown);
-(* if is_mailaddress (hdp^.wab) then { 'Original-Absender :' }
+(* if is_mailaddress (hdp^.wab,false) then { 'Original-Absender :' }
add (hdp^.absender, 1, (hdp^.pmReplyTo = '') and not eigeneAdresse (eigeneAdressenbaum, hdp^.absender),
absenderHasVertreter, absenderIsUnknown)
else *) { 'Absender :' }
add (hdp^.absender, 5, (hdp^.pmReplyTo = '') and not eigeneAdresse (eigeneAdressenbaum, hdp^.absender),
absenderHasVertreter, absenderIsUnknown);
- if is_mailaddress (hdp^.wab) then { 'Weiterleit-Absender:' }
+ if is_mailaddress (hdp^.wab,false) then { 'Weiterleit-Absender:' }
add (hdp^.wab, 2, false, wabHasVertreter, wabIsUnknown);
- if is_mailaddress (hdp^.oab) then
+ if is_mailaddress (hdp^.oab,false) then
add (hdp^.oab, 1, false, oabHasVertreter, oabIsUnknown);
addLists; { Empfänger, Original-Empfänger und Kopien-Empfaenger }
end;
@@ -1028,8 +1028,8 @@
checkList (RTAEmpfList);
if ((hdp^.pmReplyTo <> '') and (RTAMode and 2 = 2) and (uStr (hdp^.pmReplyTo) <> uStr (hdp^.absender))
- and is_mailaddress (hdp^.pmReplyTo)
- or (hdp^.wab <> '') and is_mailaddress (hdp^.wab) and (RTAMode and 1 = 1)
+ and is_mailaddress (hdp^.pmReplyTo,false)
+ or (hdp^.wab <> '') and is_mailaddress (hdp^.wab,false) and (RTAMode and 1 = 1)
or RTAEmpfVorhanden (true) and (RTAMode and 4 = 4)
or RTAEmpfVorhanden (false) and (RTAMode and 8 = 8)
or (RTAMode and 64 = 64))
@@ -1051,6 +1051,13 @@
{
$Log: xp4rta.pas,v $
+ Revision 1.7 2005/04/09 15:55:52 mw
+ MW: - Kleinen Typo beseitigt.
+
+ Revision 1.6 2005/04/09 13:10:33 mw
+ MW: - ungültige E-Mail-Adressen @invalid sind jetzt nicht immer erlaubt
+ (Teil 1, Vorbereitung auf Ablehnung des Schreibens an diese Adressen)
+
Revision 1.5 2005/01/01 11:16:30 mw
MW: - Willkommen im Jahr 2005
Index: freexp/xp9.inc
===================================================================
RCS file: /server/cvs/freexp/xp9.inc,v
retrieving revision 1.24
retrieving revision 1.26
diff -u -r1.24 -r1.26
--- freexp/xp9.inc 14 Mar 2005 08:09:26 -0000 1.24
+++ freexp/xp9.inc 9 Apr 2005 15:55:52 -0000 1.26
@@ -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.24 2005/03/14 08:09:26 mw Exp $ }
+{ $Id: xp9.inc,v 1.26 2005/04/09 15:55:52 mw Exp $ }
{ --- Bearbeitungs-Routinen für Boxen-Liste -----------------------}
@@ -128,7 +128,7 @@
begin
if (email<>'') then
begin
- if not is_mailaddress(email)
+ if not is_mailaddress(email,false)
then begin
rfehler(908);
enddialog;
@@ -2171,6 +2171,13 @@
{
$Log: xp9.inc,v $
+ Revision 1.26 2005/04/09 15:55:52 mw
+ MW: - Kleinen Typo beseitigt.
+
+ Revision 1.25 2005/04/09 13:10:33 mw
+ MW: - ungültige E-Mail-Adressen @invalid sind jetzt nicht immer erlaubt
+ (Teil 1, Vorbereitung auf Ablehnung des Schreibens an diese Adressen)
+
Revision 1.24 2005/03/14 08:09:26 mw
MW: - Fehler im Dialog "Externe Einstellungen" beseitigt.
(FreeXP hatte bei Verwendung eines externen Programms immer
Index: freexp/xp9.pas
===================================================================
RCS file: /server/cvs/freexp/xp9.pas,v
retrieving revision 1.24
retrieving revision 1.26
diff -u -r1.24 -r1.26
--- freexp/xp9.pas 4 Mar 2005 14:20:59 -0000 1.24
+++ freexp/xp9.pas 9 Apr 2005 15:55:52 -0000 1.26
@@ -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.24 2005/03/04 14:20:59 mw Exp $ }
+{ $Id: xp9.pas,v 1.26 2005/04/09 15:55:52 mw Exp $ }
{ CrossPoint - UniSel (Boxen, Gruppen, Systeme, Kurznamen, Mime-Typen) }
@@ -1037,7 +1037,7 @@
dom:=ntDefaultDomain(nt);
if nt = nt_Client then begin
email:=user;
- if not is_mailaddress(email) then
+ if not is_mailaddress(email,true) then
begin
rfehler(908);
goto restart;
@@ -1105,6 +1105,13 @@
end.
{
$Log: xp9.pas,v $
+ Revision 1.26 2005/04/09 15:55:52 mw
+ MW: - Kleinen Typo beseitigt.
+
+ Revision 1.25 2005/04/09 13:10:33 mw
+ MW: - ungültige E-Mail-Adressen @invalid sind jetzt nicht immer erlaubt
+ (Teil 1, Vorbereitung auf Ablehnung des Schreibens an diese Adressen)
+
Revision 1.24 2005/03/04 14:20:59 mw
MW: - Speicherproblem in xp9.pas beseitigt.
(Unit xp9 wurde zu groß fürs Overlay)
Index: freexp/xp9sel.pas
===================================================================
RCS file: /server/cvs/freexp/xp9sel.pas,v
retrieving revision 1.10
retrieving revision 1.12
diff -u -r1.10 -r1.12
--- freexp/xp9sel.pas 4 Apr 2005 18:07:06 -0000 1.10
+++ freexp/xp9sel.pas 9 Apr 2005 15:55:51 -0000 1.12
@@ -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.10 2005/04/04 18:07:06 mw Exp $ }
+{ $Id: xp9sel.pas,v 1.12 2005/04/09 15:55:51 mw Exp $ }
{ CrossPoint - UniSel: Select-/Test-Routinen fuer Unisel-Menüs }
@@ -62,7 +62,7 @@
function JanusSwitch(var s:string):boolean;
function PPPClientPathTest(var s:string):boolean;
function PPPClientTest(var s:string):boolean;
-function is_mailaddress(const s:string):boolean;
+function is_mailaddress(const s:string; rule:boolean):boolean;
function check_mailaddress(var s:string):boolean;
function check_notempty_mailaddress(var s:string):boolean;
function check_username(var s:string):boolean;
@@ -1063,7 +1063,7 @@
end;
-function is_mailaddress(const s:string):boolean;
+function is_mailaddress(const s:string; rule:boolean):boolean;
var b : byte;
begin
is_mailaddress:=true;
@@ -1072,14 +1072,17 @@
or (cpos('.',mid(s,b+1))=0) or (blankpos(s)<>0)
or (s<>mailstring(s,false))
then is_mailaddress:=false;
- if (mid(s,b+1)='invalid') then is_mailaddress:=true;
+ if (rule=true) then
+ begin
+ if (mid(s,b+1)='invalid') then is_mailaddress:=true;
+ end;
end;
function check_mailaddress(var s:string):boolean;
begin
check_mailaddress:=true;
- if not is_mailaddress(s) then
+ if not is_mailaddress(s,false) then
begin
check_mailaddress:=false;
rfehler(908); { 'Ungültige Adresse' }
@@ -1090,7 +1093,7 @@
function check_notempty_mailaddress(var s:string):boolean;
begin
check_notempty_mailaddress:=true;
- if (s<>'') and (not is_mailaddress(s)) then
+ if (s<>'') and (not is_mailaddress(s,false)) then
begin
check_notempty_mailaddress:=false;
rfehler(908); { 'Ungültige Adresse' }
@@ -1101,7 +1104,7 @@
function check_username(var s:string):boolean;
begin
check_username:=true;
- if (s='') or (is_mailaddress(s)) then
+ if (s='') or (is_mailaddress(s,false)) then
begin
check_username:=false;
rfehler(973); { 'Ungültiger Username' }
@@ -1123,7 +1126,7 @@
s2:=left(s1,n-1);
s1:=trim(mid(s1,n+1));
end;
- if not is_mailaddress(s2) then
+ if not is_mailaddress(s2,false) then
begin
multi_mailstring:=false;
fehler(getres2(10900,8)+': ' +s2); { 'Ungültige Adresse: %s' }
@@ -1757,7 +1760,7 @@
exit;
end;
b:=cpos('@',s);
- if not is_mailaddress(s)
+ if not is_mailaddress(s,true)
then begin
rfehler(908); { 'Ungültige Adresse' }
exit;
@@ -1984,20 +1987,20 @@
end;
if hasemail then
begin
- if not is_mailaddress(user) then
+ if not is_mailaddress(user,false) then
begin
param_err:=true;
fehler('SETUSER - '+getres2(10900,8)+' (eMail): ' +user); { 'Ungültige Adresse: %s' }
end;
end
- else if is_mailaddress(user) then { not hasemail }
+ else if is_mailaddress(user,false) then { not hasemail }
begin
param_err:=true;
fehler('SETUSER - '+getres2(10900,73)+': ' +user); { 'Ungültiger Username: %s' }
end;
if nt=nt_Client then
begin
- if (pop3Env<>'') and (pop3Env<>'*') and (not is_mailaddress(pop3Env)) then
+ if (pop3Env<>'') and (pop3Env<>'*') and (not is_mailaddress(pop3Env,false)) then
begin
param_err:=true;
fehler('SETUSER - '+getres2(10900,8)+' (POP3): ' +pop3Env); { 'Ungültige Adresse: %s' }
@@ -2007,7 +2010,7 @@
param_err:=true;
rfehler(975); { 'SETUSER - Parameter "POP3-Envelope-Adresse" nicht angegeben!' }
end;
- if (smtpEnv<>'') and (smtpEnv<>'*') and (not is_mailaddress(smtpEnv)) then
+ if (smtpEnv<>'') and (smtpEnv<>'*') and (not is_mailaddress(smtpEnv,false)) then
begin
param_err:=true;
fehler('SETUSER - '+getres2(10900,8)+' (SMTP): ' +smtpEnv); { 'Ungültige Adresse: %s' }
@@ -2082,6 +2085,13 @@
{
$Log: xp9sel.pas,v $
+ Revision 1.12 2005/04/09 15:55:51 mw
+ MW: - Kleinen Typo beseitigt.
+
+ Revision 1.11 2005/04/09 13:10:33 mw
+ MW: - ungültige E-Mail-Adressen @invalid sind jetzt nicht immer erlaubt
+ (Teil 1, Vorbereitung auf Ablehnung des Schreibens an diese Adressen)
+
Revision 1.10 2005/04/04 18:07:06 mw
MW: - ungültige E-Mail-Adressen "@invalid" sind jetzt möglich.
Index: freexp/doc/snapshot.dq
===================================================================
RCS file: /server/cvs/freexp/doc/snapshot.dq,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -r1.42 -r1.43
--- freexp/doc/snapshot.dq 4 Apr 2005 18:13:23 -0000 1.42
+++ freexp/doc/snapshot.dq 9 Apr 2005 14:37:04 -0000 1.43
@@ -4744,7 +4744,17 @@
-------------
MW:
%+ Ungültige E-Mail-Adressen @invalid sind jetzt möglich
-- Als unkültig markierte Mailadressen bla at invalid sind
+- Als ungültig markierte Mailadressen bla at invalid sind
jetzt möglich. Weitere Lockerungen folgen daraus nicht!
XP9SEL.PAS
+■ 09.04.2005
+-------------
+MW:
+%+ An Ungültige E-Mail-Adressen @invalid kann nicht mehr
+% geschrieben werden
+- Das Senden von E-Mail an ungültige E-Mail-Adressen wird
+ jetzt verhindert.
+ (Feature noch unvollständig)
+ XP9SEL.PAS, XP9.PAS, XP9.INC, XP4RTA.PAS
+
Mehr Informationen über die CVS-List Mailingliste