package stephensykes::Controller::FormValidation;

use strict;
use warnings;

use parent 'Catalyst::Controller';

=head1 NAME

stephensykes::Controller::FormValidation - FormValidation Controller

=head1 DESCRIPTION

Used to validate forms via jQuery.

=head1 METHODS

$.post("[% Catalyst.uri_for('/formvalidation/email_session') %]", {
    email: $('#email').val()
}

=cut

=head2 index

=cut

sub email_session : Local {
    my ( $self, $c ) = @_;
    
    my $email = $c->req->param('email');
    my $store = $c->req->param('store');
    
    my $response;
    
    use Email::Valid;
    
    my $email_valid = Email::Valid->address( -address => $email, -mxcheck => 1 );
    
    if( !$email_valid )
    {
        $response = 'FAIL';
    }
    else
    {
        if( $store )
        {
            $c->session->{email}->{valid} = 1;
            
            $c->model('StephenSykesDB::EmailSessions')->create({
                session_id => undef,
                email      => $email_valid,
            });
        }
        
        $response = 'OK';
    }
    
    $c->res->content_type('application/text');
    $c->res->body($response);
}

=head1 AUTHOR

Stephen Sykes

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;

# Update TagCloud weight
foreach my $fields_dbic (
    $c->model('StephenSykesDB::ArticleTags')->search(
        article_id => $form->{article_id},
        {
         prefetch  => 'tag_cloud',
         },
    )
) {
    if ($fields_dbic->tag_cloud->weight > 0) {
        # Subtract 1 from weight and update tag cloud
        my $new_weight = ($fields_dbic->tag_cloud->weight - 1);
        $c->model('StephenSykesDB::TagCloud')->update_or_create({
            tag_id => $fields_dbic->tag_cloud->tag_id,
            descr  => $fields_dbic->tag_cloud->descr,
            weight => $new_weight,
        });
    }
}
# Delete all ArticleTags and then add new from form
$c->model('StephenSykesDB::ArticleTags')->search({ article_id => $form->{article_id} })->delete;
    
# Split tags on white space
my @tags = split(/ /, $form->{Tags});

foreach my $tag_rec (@tags) {
    $tag_rec =~ tr/[A-Z]/[a-z]/;
    my $tag_cloud_dbic = $c->model('StephenSykesDB::TagCloud')->find({ descr => $tag_rec });
    if ($tag_cloud_dbic) { # update existing tag
        my $new_weight = ($tag_cloud_dbic->weight + 1);
        $c->model('StephenSykesDB::TagCloud')->update_or_create({
            tag_id => $tag_cloud_dbic->tag_id,
            descr  => $tag_cloud_dbic->descr,
            weight => $new_weight,
        });
        # Add tags to site_tags table
        $c->model('StephenSykesDB::ArticleTags')->create({
            article_id => $form->{article_id},
            tag_id     => $tag_cloud_dbic->tag_id,
        });
    } else { # create new tag
        $c->model('StephenSykesDB::TagCloud')->create({
            tag_id => undef,
            descr  => $tag_rec,
            weight => '1',
        });
        # Get new tag_id
        my $tag_dbic = $c->model('StephenSykesDB::TagCloud')->find({ descr => $tag_rec });
        # Add tags to site_tags table
        $c->model('StephenSykesDB::ArticleTags')->create({
            article_id => $form->{article_id},
            tag_id     => $tag_dbic->tag_id,
        });
    }
}