  The contents of this file are subject to the Erlang Web Public License ,
  Version 1.0 , ( the " License " ) ; you may not use this file except in
%% compliance with the License. You should have received a copy of the
  Erlang Web Public License along with this software . If not , it can be
%% retrieved via the world wide web at -consulting.com/.
%%
  Software distributed under the License is distributed on an " AS IS "
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
  The Initial Developer of the Original Code is Erlang Training & Consulting
  Ltd. Portions created by Erlang Training & Consulting Ltd are Copyright 2008 ,
  Erlang Training & Consulting Ltd. All Rights Reserved .

%%%-------------------------------------------------------------------
%%% File    : e_validator.erl
  Author   :  <  >
             <  >
%%% Description : Eptic Validator
%%% @hidden
%%%-------------------------------------------------------------------
-module(e_validator).

%% API
-export([email/1]).

%%====================================================================
%% API
%%====================================================================
%%--------------------------------------------------------------------
%% Function: 
%% Description:
%%--------------------------------------------------------------------
email(Value) ->
    case re:run(Value, "^(([A-Za-z\.]|_|-)+@[A-Za-z]+\.[A-Za-z\.]+[a-z])$",
		[{capture, first, list}]) of
	nomatch ->
	    throw(exception_not_email_address);
	_ ->
	    Value
    end.
    
%%====================================================================
  Internal functions
%%====================================================================

 compliance with the License. You should have received a copy of the
 retrieved via the world wide web at -consulting.com/.

 basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
 the License for the specific language governing rights and limitations
 under the License.

-------------------------------------------------------------------
 File    : e_validator.erl
 Description : Eptic Validator
 @hidden
-------------------------------------------------------------------
 API
====================================================================
 API
====================================================================
--------------------------------------------------------------------
 Function: 
 Description:
--------------------------------------------------------------------
====================================================================
====================================================================
  The contents of this file are subject to the Erlang Web Public License ,
  Version 1.0 , ( the " License " ) ; you may not use this file except in
  Erlang Web Public License along with this software . If not , it can be
  Software distributed under the License is distributed on an " AS IS "
  The Initial Developer of the Original Code is Erlang Training & Consulting
  Ltd. Portions created by Erlang Training & Consulting Ltd are Copyright 2008 ,
  Erlang Training & Consulting Ltd. All Rights Reserved .

  Author   :  <  >
             <  >
-module(e_validator).

-export([email/1]).

email(Value) ->
    case re:run(Value, "^(([A-Za-z\.]|_|-)+@[A-Za-z]+\.[A-Za-z\.]+[a-z])$",
		[{capture, first, list}]) of
	nomatch ->
	    throw(exception_not_email_address);
	_ ->
	    Value
    end.
    
  Internal functions
