package SL::DB::AuthClient;

use strict;

use Carp;
use File::Path ();

use SL::DBConnect;
use SL::DB::MetaSetup::AuthClient;
use SL::DB::Manager::AuthClient;
use SL::DB::Helper::Util;

__PACKAGE__->meta->add_relationship(
  users => {
    type      => 'many to many',
    map_class => 'SL::DB::AuthClientUser',
    map_from  => 'client',
    map_to    => 'user',
  },
  groups => {
    type      => 'many to many',
    map_class => 'SL::DB::AuthClientGroup',
    map_from  => 'client',
    map_to    => 'group',
  },
);

__PACKAGE__->meta->initialize;

__PACKAGE__->before_save('_before_save_remember_old_name');
__PACKAGE__->after_save('_after_save_ensure_webdav_symlink_correctness');
__PACKAGE__->after_delete('_after_delete_delete_webdav_symlink');

sub _before_save_remember_old_name {
  my ($self) = @_;

  delete $self->{__before_save_remember_old_name};
  if ($self->id && $::lx_office_conf{features}->{webdav}) {
    $self->{__before_save_remember_old_name} = SL::DB::AuthClient->new(id => $self->id)->load->name;
  }

  return 1;
}

sub _after_save_ensure_webdav_symlink_correctness {
  my ($self) = @_;

  $self->ensure_webdav_symlink_correctness($self->{__before_save_remember_old_name}) if $self->id;
  return 1;
}

sub _after_delete_delete_webdav_symlink {
  my ($self) = @_;

  my $name = $self->webdav_symlink_basename;
  unlink "webdav/links/${name}";
  return 1;
}

sub validate {
  my ($self) = @_;

  my @errors;
  push @errors, $::locale->text('The name is missing.')                                           if !$self->name;
  push @errors, $::locale->text('The database name is missing.')                                  if !$self->dbname;
  push @errors, $::locale->text('The database host is missing.')                                  if !$self->dbhost;
  push @errors, $::locale->text('The database port is missing.')                                  if !$self->dbport;
  push @errors, $::locale->text('The database user is missing.')                                  if !$self->dbuser;
  push @errors, $::locale->text('The name is not unique.')                                        if !SL::DB::Helper::Util::is_unique($self, 'name');
  push @errors, $::locale->text('The combination of database host, port and name is not unique.') if !SL::DB::Helper::Util::is_unique($self, 'dbhost', 'dbport', 'dbname');

  return @errors;
}

sub webdav_symlink_basename {
  my ($self, $name) =  @_;

  $name             =  $name || $self->name || '';
  $name             =~ s:/+:_:g;

  return $name;
}

sub ensure_webdav_symlink_correctness {
  my ($self, $old_name) = @_;

  croak "Need object ID" unless $self->id;

  my $new_symlink = $self->webdav_symlink_basename;

  croak "Need name" unless $new_symlink;

  my $base_path = 'webdav/links';

  if ($old_name) {
    my $old_symlink = $self->webdav_symlink_basename($old_name);
    return if $old_symlink eq $new_symlink;

    if (-l "${base_path}/${old_symlink}") {
      rename "${base_path}/${old_symlink}", "${base_path}/${new_symlink}";
      return;
    }
  }

  File::Path::make_path('webdav/' . $self->id);
  symlink '../' . $self->id, "${base_path}/${new_symlink}";
}

sub get_dbconnect_args {
  my ($self, %params) = @_;

  return (
    'dbi:Pg:dbname=' . $self->dbname . ';host=' . ($self->dbhost || 'localhost') . ';port=' . ($self->dbport || 5432),
    $self->dbuser,
    $self->dbpasswd,
    SL::DBConnect->get_options(%params),
  );
}

sub dbconnect {
  my ($self, %params) = @_;
  return SL::DBConnect->connect($self->get_dbconnect_args(%params));
}

1;
__END__

=pod

=encoding utf8

=head1 NAME

SL::DB::AuthClient - RDBO model for the auth.clients table

=head1 FUNCTIONS

=over 4

=item C<dbconnect [%params]>

Establishes a new database connection to the database configured for
C<$self>. Returns a database handle as returned by
L<SL::DBConnect/connect> (which is either a normal L<DBI> handle or
one handled by L<DBIx::Log4perl>).

C<%params> are optional parameters passed as the fourth argument to
L<SL::DBConnect/connect>. They're first filtered through
L<SL::DBConnect/get_options> so the UTF-8 flag will be set properly.

=item C<ensure_webdav_symlink_correctness>

Handles the symlink creation/deletion for the WebDAV folder. Does
nothing if WebDAV is not enabled in the configuration.

For each existing client a symbolic link should exist in the directory
C<webdav/links> pointing to the actual WebDAV directory which is the
client's database ID.

The symbolic link's name is the client's name sanitized a bit. It's
calculated by L</webdav_symlink_basename>.

=item C<get_dbconnect_args [%params]>

Returns an array of database connection parameters suitable for
passing to L<SL::DBConnect/connect>.

C<%params> are optional parameters passed as the fourth argument to
L<SL::DBConnect/connect>. They're first filtered through
L<SL::DBConnect/get_options> so the UTF-8 flag will be set properly.

=item C<validate>

Returns an array of human-readable error messages if the object must
not be saved and an empty list if nothing's wrong.

=item C<webdav_symlink_basename>

Returns the base name of the symbolic link for the WebDAV C<links>
sub-folder.

=back

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>

=cut