egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-04-07T12:26:02-04:00 https://forum.eggheads.org/app.php/feed/topic/4079 2003-04-07T12:26:02-04:00 2003-04-07T12:26:02-04:00 https://forum.eggheads.org/viewtopic.php?p=18679#p18679 <![CDATA[Correct EMail Syntax]]> Statistics: Posted by GodOfSuicide — Mon Apr 07, 2003 12:26 pm

]]> 2003-04-07T11:48:48-04:00 2003-04-07T11:48:48-04:00 https://forum.eggheads.org/viewtopic.php?p=18678#p18678 <![CDATA[Correct EMail Syntax]]>

Code: 

proc chkemail {in} {  return [regexp {^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$} $in]}
This will only validate the address to contain the correct chars.

You can go further, and test the address on the spot, to determine if the address has valid NS information and if a mail server is willing to accept mail for this address. This will stop a lot of bounces and spam from the off.

Statistics: Posted by ppslim — Mon Apr 07, 2003 11:48 am

]]> 2003-04-07T09:50:29-04:00 2003-04-07T09:50:29-04:00 https://forum.eggheads.org/viewtopic.php?p=18673#p18673 <![CDATA[Correct EMail Syntax]]> But still i haven't found a way to check if it's really a correct email. I have searched the forum and found some solutions (like [regexp {.+@.+\..+} $arg] from WCC, which i had nearly the same [matchattr $arg *?@?*.?*]).

But still the user can enter invalid email addresses (like my`nick@c§wlhost.d()main).

Does somebody have a proc that checks if ONLY abcde...ABCDE...123, . and @ are used in a string ? would help me a lot.

Statistics: Posted by GodOfSuicide — Mon Apr 07, 2003 9:50 am

]]>