Foodloop-Server/lib/Pear/LocalLoop/Schema/Result/User.pm

package Pear::LocalLoop::Schema::Result::User;

use strict;
use warnings;

use base 'DBIx::Class::Core';

use Data::UUID;

__PACKAGE__->load_components(
    qw/
      InflateColumn::DateTime
      PassphraseColumn
      TimeStamp
      FilterColumn
      /
);

__PACKAGE__->table("users");

__PACKAGE__->add_columns(
    "id" => {
        data_type         => "integer",
        is_auto_increment => 1,
        is_nullable       => 0,
    },
    "entity_id" => {
        data_type      => "integer",
        is_foreign_key => 1,
        is_nullable    => 0,
    },
    "email" => {
        data_type   => "text",
        is_nullable => 0,
    },
    "join_date" => {
        data_type     => "datetime",
        set_on_create => 1,
    },
    "password" => {
        data_type        => "varchar",
        is_nullable      => 0,
        size             => 100,
        passphrase       => 'crypt',
        passphrase_class => 'BlowfishCrypt',
        passphrase_args  => {
            salt_random => 1,
            cost        => 8,
        },
        passphrase_check_method => 'check_password',
    },
    "is_admin" => {
        data_type     => "boolean",
        default_value => \"false",
        is_nullable   => 0,
    },
);

__PACKAGE__->set_primary_key("id");

__PACKAGE__->add_unique_constraint( ["email"] );

__PACKAGE__->belongs_to( "entity", "Pear::LocalLoop::Schema::Result::Entity",
    "entity_id", );

__PACKAGE__->has_many(
    "session_tokens",
    "Pear::LocalLoop::Schema::Result::SessionToken",
    { "foreign.user_id" => "self.id" },
    { cascade_copy      => 0, cascade_delete => 0 },
);

__PACKAGE__->has_many(
    "device_tokens",
    "Pear::LocalLoop::Schema::Result::DeviceToken",
    { "foreign.user_id" => "self.id" },
    { cascade_copy      => 0, cascade_delete => 0 },
);

__PACKAGE__->has_many(
    "feedback",
    "Pear::LocalLoop::Schema::Result::Feedback",
    { "foreign.user_id" => "self.id" },
    { cascade_copy      => 0, cascade_delete => 0 },
);

__PACKAGE__->filter_column(
    is_admin => {
        filter_to_storage => 'to_bool',
    }
);

sub sqlt_deploy_hook {
    my ( $source_instance, $sqlt_table ) = @_;
    my $pending_field = $sqlt_table->get_field('is_admin');
    if ( $sqlt_table->schema->translator->producer_type =~ /SQLite$/ ) {
        $pending_field->{default_value} = 0;
    }
    else {
        $pending_field->{default_value} = \"false";
    }
    
    return 1;
}

sub to_bool {
    my ( $self, $val ) = @_;
    my $driver_name =
      $self->result_source->schema->storage->dbh->{Driver}->{Name};
    if ( $driver_name eq 'SQLite' ) {
        return $val ? 1 : 0;
    }
    else {
        return $val ? 'true' : 'false';
    }
}

sub generate_session {
    my $self = shift;

    my $token = Data::UUID->new->create_str();
    $self->create_related(
        'session_tokens',
        {
            token => $token,
        },
    );

    return $token;
}

sub name {
    my $self = shift;

    if ( defined $self->entity->customer ) {
        return $self->entity->customer->display_name;
    }
    elsif ( defined $self->entity->organisation ) {
        return $self->entity->organisation->name;
    }
    else {
        return;
    }
}

sub full_name {
    my $self = shift;

    if ( defined $self->entity->customer ) {
        return $self->entity->customer->full_name;
    }
    elsif ( defined $self->entity->organisation ) {
        return $self->entity->organisation->name;
    }
    else {
        return;
    }
}

# TODO Deprecate this sub?
sub type {
    my $self = shift;

    return $self->entity->type;
}

1;