FreeXP

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