projekt kivitendo

use Carp;

use File::Path ();

__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 && $::lx_office_conf{features}->{webdav};

  return 1;

}

sub _after_delete_delete_webdav_symlink {

  my ($self) = @_;

  return 1 if !$::lx_office_conf{features}->{webdav};

  my $name = $self->webdav_symlink_basename;

  unlink "webdav/links/${name}";

  return 1;

}

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) = @_;

  return unless $::lx_office_conf{features}->{webdav};

  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}";

}