diff --git a/src/plugins/email.art b/src/plugins/email.art index c661374..436e250 100644 --- a/src/plugins/email.art +++ b/src/plugins/email.art @@ -18,4 +18,19 @@ action: function [str][ ; https://stackoverflow.com/a/201378 match? str {/(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|"(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9]))\.){3}(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9])|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\])/} +] + +;------------------ +; tests +;------------------ +test: #[ + valid: [ + "drkameleon@gmail.com" + "yaniszaf@gmail.com" + ] + + invalid: [ + "drkameleongmail.com" + "foobar" + ] ] \ No newline at end of file