package NGCP::Panel::Controller::API::ProvisioningTemplatesItem;
use NGCP::Panel::Utils::Generic qw(:all);

use Sipwise::Base;

use HTTP::Headers qw();
use HTTP::Status qw(:constants);

use NGCP::Panel::Utils::ValidateJSON qw();
require Catalyst::ActionRole::ACL;
require NGCP::Panel::Role::HTTPMethods;
require Catalyst::ActionRole::RequireSSL;
use Scalar::Util qw/blessed/;
use NGCP::Panel::Utils::Generic qw(run_module_method get_module_var);
use NGCP::Panel::Role::API::Subscribers qw();

sub allowed_methods{
    return [qw/GET OPTIONS HEAD PATCH PUT DELETE/];
}

use parent qw/NGCP::Panel::Role::EntitiesItem NGCP::Panel::Role::API::ProvisioningTemplates/;

sub resource_name{
    return 'provisioningtemplates';
}

sub dispatch_path{
    return '/api/provisioningtemplates/';
}

sub relation{
    return 'http://purl.org/sipwise/ngcp-api/#rel-provisioningtemplates';
}

sub journal_query_params {
    my($self,$query_params) = @_;
    return $self->get_journal_query_params($query_params);
}

sub get_journal_methods{
    return [qw/handle_item_base_journal handle_journals_get handle_journalsitem_get handle_journals_options handle_journalsitem_options handle_journals_head handle_journalsitem_head/];
}

__PACKAGE__->set_config({
    required_licenses => [qw/batch_provisioning/],
    action_add  => {
        item_base => {
            Chained => '/',
            PathPart => 'api/' . __PACKAGE__->resource_name,
            CaptureArgs => 1,
        },
        item_get => {
            Chained => 'item_base',
            PathPart => '',
            Args => 0,
            Method => 'GET',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_options => {
            Chained => 'item_base',
            PathPart => '',
            Args => 0,
            Method => 'OPTIONS',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_head => {
            Chained => 'item_base',
            PathPart => '',
            Args => 0,
            Method => 'HEAD',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_put => {
            Chained => 'item_base',
            PathPart => '',
            Args => 0,
            Method => 'PUT',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_patch => {
            Chained => 'item_base',
            PathPart => '',
            Args => 0,
            Method => 'PATCH',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_delete => {
            Chained => 'item_base',
            PathPart => '',
            Args => 0,
            Method => 'DELETE',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_post => {
            Chained => 'item_base',
            PathPart => '',
            Args => 0,
            Method => 'POST',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)],
            ContentType => [qw#application/json text/csv#],
            ResourceContentType => ['text/csv'],
        },

        item_get_reseller => {
            Chained => 'item_base',
            PathPart => '',
            Args => 1,
            Method => 'GET',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_options_reseller => {
            Chained => 'item_base',
            PathPart => '',
            Args => 1,
            Method => 'OPTIONS',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_head_reseller => {
            Chained => 'item_base',
            PathPart => '',
            Args => 1,
            Method => 'HEAD',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_put_reseller => {
            Chained => 'item_base',
            PathPart => '',
            Args => 1,
            Method => 'PUT',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_patch_reseller => {
            Chained => 'item_base',
            PathPart => '',
            Args => 1,
            Method => 'PATCH',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_delete_reseller => {
            Chained => 'item_base',
            PathPart => '',
            Args => 1,
            Method => 'DELETE',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)]
        },
        item_post_reseller => {
            Chained => 'item_base',
            PathPart => '',
            Args => 1,
            Method => 'POST',
            ACLDetachTo => '/api/root/invalid_user',
            AllowedRole => [qw/admin reseller ccareadmin ccare/],
            Does => [qw(ACL RequireSSL)],
            ContentType => [qw#application/json text/csv#],
            ResourceContentType => ['text/csv'],
        },
    }
});

sub item_base {
    my ($self,$c,$reseller) = @_;
    $c->stash->{id} = $reseller;
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return;
}


sub item_get {
    my ($self,$c) = @_;
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->get($c,$c->stash->{id});
}

sub item_get_reseller {
    my ($self,$c,$name) = @_;
    $c->stash->{id} = $self->get_id($c->stash->{id},$name);
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->get($c,$c->stash->{id});
}


sub item_options {
    my ($self,$c) = @_;
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->options($c,$c->stash->{id});
}

sub item_options_reseller {
    my ($self,$c,$name) = @_;
    $c->stash->{id} = $self->get_id($c->stash->{id},$name);
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->options($c,$c->stash->{id});
}


sub item_head {
    my ($self,$c) = @_;
    $c->forward('item_get');
    $c->response->body(q());
    return;
}

sub item_head_reseller {
    my ($self,$c,$name) = @_;
    $c->forward('item_get_reseller');
    $c->response->body(q());
    return;
}


sub item_put {
    my ($self,$c) = @_;
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->put($c,$c->stash->{id});
}

sub item_put_reseller {
    my ($self,$c,$name) = @_;
    $c->stash->{id} = $self->get_id($c->stash->{id},$name);
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->put($c,$c->stash->{id});
}


sub item_patch {
    my ($self,$c) = @_;
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->patch($c,$c->stash->{id});
}

sub item_patch_reseller {
    my ($self,$c,$name) = @_;
    $c->stash->{id} = $self->get_id($c->stash->{id},$name);
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->patch($c,$c->stash->{id});
}


sub item_delete {
    my ($self,$c) = @_;
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->delete($c,$c->stash->{id});
}

sub item_delete_reseller {
    my ($self,$c,$name) = @_;
    $c->stash->{id} = $self->get_id($c->stash->{id},$name);
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->delete($c,$c->stash->{id});
}


sub item_post {
    my ($self,$c) = @_;
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->post($c,$c->stash->{id});
}

sub item_post_reseller {
    my ($self,$c,$name) = @_;
    $c->stash->{id} = $self->get_id($c->stash->{id},$name);
    #$c->log->debug((caller(0))[3] . ": " . $c->stash->{id});
    return $self->post($c,$c->stash->{id});
}


sub update_item_model {

    my($self, $c, $item, $old_resource, $resource, $form, $process_extras) = @_;

    $resource->{yaml} = run_module_method('Utils::ProvisioningTemplates::dump_template',$c,
        $resource->{id},
        $resource->{name},
        delete $resource->{template},
    );

    $resource->{id} = $item->id;
    $resource->{modify_timestamp} = NGCP::Panel::Utils::DateTime::current_local;

    $item->update($resource);

    return $item;

}

sub delete_item {

    my($self, $c, $item) = @_;

    if ($item
        and not blessed($item)) {
        $self->error($c, HTTP_UNPROCESSABLE_ENTITY, "Provisioning template cannot be deleted");
        return;
    }

    $item->delete();
    return 1;

}

sub post {
    my ($self,$c,$id) = @_;

    my $template = $self->item_by_id_valid($c, $id);
    last unless $template;
    my ($form) = $self->get_form($c, 'form', $id);
    my ($action) = reverse split(/::/,(caller(1))[3],-1);
    my $method_config = $self->get_config('action')->{$action};
    my ($resource, $data, $non_json_data) = $self->get_valid_data(
        c                   => $c,
        method              => 'POST',
        media_type          => $method_config->{ContentType} // 'application/json',
        uploads             => $method_config->{Uploads} // [] ,
        form                => $form,
        resource_media_type => $method_config->{ResourceContentType},
    );
    return unless $resource;
    my $purge = $c->req->params->{purge_existing};
    if (length($purge)
        and ('1' eq $purge
        or 'true' eq lc($purge))) {
        $purge = 1;
    } else {
        $purge = 0;
    }

    if (!$non_json_data || !$data) {
        my $context;
        try {
            $context = run_module_method('Utils::ProvisioningTemplates::provision_begin',
                c     => $c,
                purge => $purge,
            );
            run_module_method('Utils::ProvisioningTemplates::provision_commit_row',
                c => $c,
                context => $context,
                'values' => $resource,
            );
            run_module_method('Utils::ProvisioningTemplates::provision_finish',
                c => $c,
                context => $context,
            );
            $c->log->debug(sprintf("Provisioning template '%s' done: subscriber %s created",
                $id,
                $context->{subscriber}->{username} . '@' . $context->{domain}->{domain}
            ));
            $c->response->header(Location => sprintf('%s%d', NGCP::Panel::Role::API::Subscribers::dispatch_path(), $context->{subscriber}->{id}));
        } catch($e) {
            run_module_method('Utils::ProvisioningTemplates::provision_cleanup',$c, $context);
            $self->error($c, HTTP_INTERNAL_SERVER_ERROR, "Provisioning template '$id' failed", $e);
            return;
        }
    } else {
        try {
            my ($linecount,$errors) = run_module_method('Utils::ProvisioningTemplates::process_csv',
                c     => $c,
                data  => \$data,
                purge => $purge,
            );
            if (scalar @$errors) {
                $self->error($c, HTTP_INTERNAL_SERVER_ERROR, "Internal Server Error",
                             sprintf('CSV file (%d lines) processed, %d error(s).', $linecount, scalar @$errors));
                return;
            } else {
                $c->log->debug(sprintf('CSV file (%d lines) processed, %d error(s).', $linecount, 0));
            }
        } catch($e) {
            $self->error($c, HTTP_INTERNAL_SERVER_ERROR, "Internal Server Error",
                         "failed to process CSV file", $e);
            return;
        }
    }

    $self->return_representation_post($c);

    return;
}

1;