Belin.Validation

0.3.0

Sources/Validators/Email.ps1

                                <#

.SYNOPSIS

    Creates a new validator that ensures the validated value is a well-formed mail address.

.OUTPUTS

    The newly created validator.

#>

function New-ValidatorEmail {

    [CmdletBinding()]

    [OutputType([Belin.Validation.Validator])]

    param (

        # The error message describing the validation failure.

        [Parameter(Mandatory, Position = 1)]

        [string] $Reason

    )

    New-Validator $Reason {

        if (($_ -isnot [string]) -or ($_ -match "[\n\r]")) { return $false }

        $index = $_.IndexOf("@")

        ($index -gt 0) -and ($index -lt ($_.Length - 1)) -and ($index -eq $_.LastIndexOf("@"))

    }

}