projekt kivitendo

use File::Copy;

use File::stat;

use File::Slurp;

#

# Legt ein entsprechendes Webdav-Verzeichnis an, falls

# Webdav als Option konfiguriert ist. Falls schon ein

# Ordner vorhanden ist, werden alle Dateien alphabetisch

# sortiert ausgelesen und an der Oberfläche angezeigt

#

    unless ($::instance_conf->get_webdav && $form->{id});

  my ($path, $number) = get_webdav_folder($form);     # ausgelagert

      # alphabetisch sortiert.

#

# Diese Routine baut aus dem Masken-Typ und der

# Beleg-Nummer, das entsprechende Webdav-Verzeichnis zusammen

# Nimmt leider noch die ganze Form entgegen und den if-elsif-Block

# sollte man schöner "dispatchen"

# Ergänzung 6.5.2011, den else-Zweig defensiver gestaltet und mit

# -1 als n.i.O. Rückgabewert versehen

#

sub get_webdav_folder {

  $main::lxdebug->enter_sub();

  my ($form) = @_;

  croak "No client set in \$::auth" unless $::auth->client;

  my ($path, $number);

  # dispatch table

  if ($form->{type} eq "sales_quotation") {

    ($path, $number) = ("angebote", $form->{quonumber});

  } elsif ($form->{type} eq "sales_order") {

    ($path, $number) = ("bestellungen", $form->{ordnumber});

  } elsif ($form->{type} eq "request_quotation") {

    ($path, $number) = ("anfragen", $form->{quonumber});

  } elsif ($form->{type} eq "purchase_order") {

    ($path, $number) = ("lieferantenbestellungen", $form->{ordnumber});

  } elsif ($form->{type} eq "sales_delivery_order") {

    ($path, $number) = ("verkaufslieferscheine", $form->{donumber});

  } elsif ($form->{type} eq "purchase_delivery_order") {

    ($path, $number) = ("einkaufslieferscheine", $form->{donumber});

  } elsif ($form->{type} eq "credit_note") {

    ($path, $number) = ("gutschriften", $form->{invnumber});

  } elsif ($form->{vc} eq "customer") {

    ($path, $number) = ("rechnungen", $form->{invnumber});

  } elsif ($form->{vc} eq "vendor") {

    ($path, $number) = ("einkaufsrechnungen", $form->{invnumber});

  } else {

    # wir befinden uns nicht in einer belegmaske

    # scheinbar wird diese routine auch bspw. bei waren

    # aufgerufen - naja, steuerung über die $form halt ...

    $main::lxdebug->leave_sub();

    return undef;

  }

  $number =~ s|[/\\]|_|g;

  $path = "webdav/" . $::auth->client->{id} . "/${path}/${number}";

  $main::lxdebug->leave_sub();

  return ($path, $number);

}

#

# Falls Webdav aktiviert ist, auch den generierten Beleg in das

# Webdav-Verzeichnis kopieren

#

#

sub copy_file_to_webdav_folder {

  $main::lxdebug->enter_sub();

  my ($form) = @_;

  my ($last_mod_time, $latest_file_name, $complete_path);

  # checks

  foreach my $item (qw(tmpdir tmpfile type)){

    if (!$form->{$item}){

      $main::lxdebug->message(0, 'Missing parameter');

      $main::form->error($main::locale->text("Missing parameter for webdav file copy"));

    }

  }

  # Den Webdav-Ordner ÜBER exakt denselben Mechanismus wie beim

  # Anlegen des Ordners bestimmen

  my ($webdav_folder, $document_name) =  get_webdav_folder($form);

  if (! $webdav_folder){

    $main::lxdebug->leave_sub();

    $main::form->error($main::locale->text("Cannot check correct webdav folder"));

    return undef; # s.o. erstmal so ...

  }

  # kompletter pfad

  $complete_path =  join('/', $form->{cwd},  $webdav_folder);

  opendir my $dh, $complete_path or die "Could not open $complete_path: $!";

  my ($newest_name, $newest_time);

  while ( defined( my $file = readdir( $dh ) ) ) {

    my $path = File::Spec->catfile( $complete_path, $file );

    next if -d $path; # skip directories, or anything else you like

    ( $newest_name, $newest_time ) = ( $file, -M _ )

        if( ! defined $newest_time or -M $path < $newest_time );

    }

  $latest_file_name = $complete_path .'/' . $newest_name;

  my $filesize = stat($latest_file_name)->size;

  # prüfung auf identisch oder nicht

  my ($ext) = $form->{tmpfile} =~ /(\.[^.]+)$/;

  my $current_file = join('/', $form->{tmpdir}, $form->{tmpfile});

  my $current_filesize = stat($current_file)->size;

  if ($current_filesize == $filesize) { # bei gleicher größe copy deaktivieren

    $main::lxdebug->leave_sub();

    return;

  }

  # zeitstempel und dateinamen holen

  my $timestamp = get_current_formatted_time();

  my $myfilename = $form->generate_attachment_filename();

  # entsprechend vor der endung hinzufügen

  $myfilename =~ s/\./$timestamp\./;

  if (!copy(join('/', $form->{tmpdir}, $form->{tmpfile}), join('/', $form->{cwd}, $webdav_folder, $myfilename))) {

    my $j = join('/', $form->{tmpdir}, $form->{tmpfile});

    my $k = join('/', $form->{cwd},  $webdav_folder);

    $main::lxdebug->message(0, "Copy file from $j to $k failed");

    $main::form->error($main::locale->text("Copy file from #1 to #2 failed", $j, $k));

  }

  $main::lxdebug->leave_sub();

}

sub get_current_formatted_time {

  $main::lxdebug->enter_sub();

  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

  my $formatted_current_time = sprintf ( "_%04d%02d%02d_%02d%02d%02d",

                                   $year+1900,$mon+1,$mday,$hour,$min,$sec);

  $main::lxdebug->leave_sub();

  return $formatted_current_time;

}