#Validate.pm

sub val_alpha {
	if ($_[0] =~ /^([A-Za-z -]*)$/) {
		$_[0] = $1;
	} else {
		$_[2] = "Invalid character(s) in $_[1]";
	}
}

 
sub val_phone {
	if ($_[0] =~ /^[\(]?(\d{3})[\)\.\-]?(\d{3})[\)\.\-]?(\d{4})$/) {
		$_[0] = "$1-$2-$3";
	} else {
		$_[2] = "Invalid $_[1]";
	}
}

sub val_date {
	if ($_[0] =~ /^(\d{2})-(\d{2})-(\d{4})$/) {
		$_[0] = "$1-$2-$3";
	} else {
		$_[2] = "Invalid $_[1]";
	}
}

sub val_email {
	if ($_[0] =~ /^([\w\.\-]{3,})@([\w\.\-]{3,})\.([A-Z]{2,3})$/i) {
		$_[0] = "$1\@$2\.$3";
	} else {
		$_[2] = "Invalid $_[1]";
	}
}

1;