package Validate; # use package to declare a module

our $val;

sub val_alpha {
    $val = shift;
    if ($val =~ /^([A-Za-z \-]*)$/) {
    	$val = "$1";
    } else {
    	&error_page;
    }
}

sub val_phone {
    $val = shift;
    if ($val =~ /^[\(]?(\d{3})[\)\.\-]?(\d{3})[\)\.\-]?(\d{4})$/) {
    	$val = "$1-$2-$3";
    } else {
    	&error_page;
    }
}

sub val_date {
    $val = shift;
    if ($val =~ /^(\d{2})-(\d{2})-(\d{4})$/) {
    	$val = "$1-$2-$3";
    } else {
    	&error_page;
    }
}


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

sub error_page {
	print "HTML error page prints here\n";
	exit;
	}

1;