com.arsdigita.util.parameter.EmailParameter.java Source code

Introduction

Here is the source code for com.arsdigita.util.parameter.EmailParameter.java

Source

/*
 * Copyright (C) 2001, 2002, 2003 Red Hat Inc. All Rights Reserved.
 *
 * The contents of this file are subject to the CCM Public
 * License (the "License"); you may not use this file except in
 * compliance with the License. You may obtain a copy of
 * the License at http://www.redhat.com/licenses/ccmpl.html
 *
 * 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.
 *
 */

package com.arsdigita.util.parameter;

import com.arsdigita.util.*;
import java.net.*;
import java.util.*;
import javax.mail.*;
import javax.mail.internet.*;
import org.apache.commons.beanutils.*;
import org.apache.oro.text.perl.Perl5Util;

/**
 * Subject to change.
 *
 * @author Justin Ross <jross@redhat.com>
 * @version $Id: //core-platform/test-packaging/src/com/arsdigita/util/parameter/EmailParameter.java#6 $
 */
public class EmailParameter extends StringParameter {
    public final static String versionId = "$Id: //core-platform/test-packaging/src/com/arsdigita/util/parameter/EmailParameter.java#6 $"
            + "$Author: justin $" + "$DateTime: 2003/10/22 16:13:26 $";

    private static final Perl5Util s_perl = new Perl5Util();
    private static final String s_regex = "/^[^@<>\"\t ]+@[^@<>\".\t]+([.][^@<>\".\n ]+)+$/";

    public EmailParameter(final String name) {
        super(name);
    }

    protected Object unmarshal(final String value, final ErrorList errors) {
        try {
            return new InternetAddress(value);
        } catch (AddressException ae) {
            errors.add(new ParameterError(this, ae));
            return null;
        }
    }

    protected void doValidate(final Object value, final ErrorList errors) {
        super.doValidate(value, errors);

        final InternetAddress email = (InternetAddress) value;

        if (!s_perl.match(s_regex, email.toString())) {
            final ParameterError error = new ParameterError(this, "The value is not a valid email address");

            errors.add(error);
        }
    }
}