##


                    
                    Username: 
                    
                      
                          
                      
                     
                     
                     
                    

                    Password: 
                    Password-Check: 
                    

                    First Name: 

                    Last Name: 


                   
                    Email Validation Required within 24 Hours of Account Creation.

                    Email: 
                    Email Check: 
                    


                   
                    Country: 

                    City: 

                    

                    How did you find us?
                    

                    

                    

                    

                    
                    

                    
                    



##

##

sub usernameCheck
{
    my ($query, $self) = @_;
    #my $enteredusername = $query->param('r_username');
    # check if its an AJAX submit
    if ( $query->param('ajax') ) {   
        my $usernamecheck = check_usernames($enteredusername);
        my $json = to_json($usernamecheck);
        print "Content-type: text/html\n\n";
        $self->header_add(-type => 'application/json');
        print $json;
        exit;
    }
}   
    
    
sub check_usernames
{
    my ($t) = @_;
    # pretend like we're doing some heavy task!
    #my $answer = checkdbforusername($t);
    sleep 0;
    my $userresult = {
        username => $t,
    };
    my $userresult2 = {
        username => $t,
        };
        if($answer == 1)
        {
            return $userresult;
        }
    else
        {
            return $userresult2;
        }
}