[TWiki-Dev] [SVN] KennethLavrsen r12699 - twiki/branches/Patch04x01/lib/TWiki/Configure/Checkers

[<de...@de...>]

Author: KennethLavrsen
Date: 2007-01-31 14:41:03 -0600 (Wed, 31 Jan 2007)
New Revision: 12699

Modified:
   twiki/branches/Patch04x01/lib/TWiki/Configure/Checkers/WebMasterEmail.pm
Log:
Item3303: improved webmaster checker to exclude multiple or badly formatted addresses


Modified: twiki/branches/Patch04x01/lib/TWiki/Configure/Checkers/WebMasterEmail.pm
===================================================================
--- twiki/branches/Patch04x01/lib/TWiki/Configure/Checkers/WebMasterEmail.pm	2007-01-31 20:04:27 UTC (rev 12698)
+++ twiki/branches/Patch04x01/lib/TWiki/Configure/Checkers/WebMasterEmail.pm	2007-01-31 20:41:03 UTC (rev 12699)
@@ -28,6 +28,9 @@
     if( !$TWiki::cfg{WebMasterEmail} ) {
         return $this->WARN('Please make sure you enter the e-mail address of the webmaster. This is required for registration to work.');
     }
+    if( $TWiki::cfg{WebMasterEmail} !~ /^[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}$/i) {
+        return $this->WARN('I don\'t recognise this as a valid email address.');
+    }
     return '';
 }