#!/usr/bin/perl -wT

print "Content-type: text/plain\n\n";
use lib "/Library/WebServer/CGI-Executables/"; #Mac :)
use CGI::Carp qw(fatalsToBrowser);
use strict;
use Validate;
use Data::Dumper;
use CGI qw(:standard);
new CGI;

Validate::val_alpha(param('name'));
my $name = $Validate::val; 

Validate::val_date(param('date'));
my $date = $Validate::val;

Validate::val_phone(param('phone'));
my $phone = $Validate::val;

Validate::val_email(param('email'));
my $email = $Validate::val;

print Dumper($name, $date, $phone, $email); #testing only

#eventually write to the database

__END__

##</code><code>##

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;