From 4cb3ecfd6f144901ed89dae7acafdf1c124c53f4 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@lx-office-hosting.de>
Date: Fri, 6 May 2011 17:07:32 +0200
Subject: [PATCH] Webdav-Komponente: Das Erstellen des Verzeichnisses
 ausgelagert. Ferner den Beleg auch in das Webdav-Verzeichnis kopieren. Offen:
 Fehlerbehandlung in Common.pm - ggf. gleich revert

---
 SL/Common.pm | 134 +++++++++++++++++++++++++++++++++++++++++----------
 SL/Form.pm   |   2 +-
 2 files changed, 109 insertions(+), 27 deletions(-)

diff --git a/SL/Common.pm b/SL/Common.pm
index dae75322f..8cf4e85cf 100644
--- a/SL/Common.pm
+++ b/SL/Common.pm
@@ -13,6 +13,7 @@ use strict;
 
 use Time::HiRes qw(gettimeofday);
 use Data::Dumper;
+use File::Copy;
 
 use SL::DBUtils;
 
@@ -330,6 +331,10 @@ sub mkdir_with_parents {
   $main::lxdebug->leave_sub();
 }
 
+#
+# Legt ein entsprechendes Webdav-Verzeichnis an, falls
+# Webdav als Option konfiguriert ist
+#
 sub webdav_folder {
   $main::lxdebug->enter_sub();
 
@@ -338,35 +343,11 @@ sub webdav_folder {
   return $main::lxdebug->leave_sub()
     unless ($::lx_office_conf{features}->{webdav} && $form->{id});
 
-  my ($path, $number);
+  my $path = get_webdav_folder($form); # ausgelagert, wg. D.R.Y.
 
   $form->{WEBDAV} = [];
 
-  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});
-  } else {
-    ($path, $number) = ("einkaufsrechnungen", $form->{invnumber});
-  }
-
-  return $main::lxdebug->leave_sub() unless ($path && $number);
-
-  $number =~ s|[/\\]|_|g;
-
-  $path = "webdav/${path}/${number}";
+  return $main::lxdebug->leave_sub() unless ($path);
 
   if (!-d $path) {
     mkdir_with_parents($path);
@@ -573,4 +554,105 @@ sub check_params_x {
   }
 }
 
+#
+# 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) = @_;
+
+  # TODO Ergänzung um check_params
+
+  my ($path, $number);
+
+
+  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 Form.pm halt ...
+    $main::lxdebug->leave_sub();
+    return undef;
+  }
+
+  return $main::lxdebug->leave_sub() unless ($path && $number);
+
+  $number =~ s|[/\\]|_|g;
+
+  $path = "webdav/${path}/${number}";
+
+  $main::lxdebug->leave_sub();
+
+  return $path;
+
+}
+
+#
+# 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) = @_;  
+  # leider die ganze form
+  # da get_webdav_folder die auch noch benötigt
+  # aber hier ein paar checks:
+  # OFFEN: check_params kann ich ja nicht eine
+  # abgespeckte $form übergeben, oder?
+  $form->{type} = ''; 
+  foreach my $item (qw(tmpdir tmpfile type)){
+    if (!$form->{$item}){  # wahr, bei undef oder ''
+      $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 bestimmen
+  # leider ist das auch das Kriterium, ob überhaupt ein "Anlegen"
+  # erlaubt ist
+  my $webdav_folder =  get_webdav_folder($form);
+
+  # hier auch nochmal prüfen
+  if (! $webdav_folder){
+    $main::lxdebug->leave_sub();
+    return undef; # s.o. erstmal so ...
+    $main::form->error($main::locale->text("Cannot check correct webdav folder"));
+  }
+
+  if(!copy(join('/', $form->{tmpdir}, $form->{tmpfile}), join('/', $form->{cwd},  $webdav_folder))){ 
+    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();
+}
+
 1;
diff --git a/SL/Form.pm b/SL/Form.pm
index b63421750..ae51efd78 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1203,7 +1203,6 @@ sub parse_template {
   local (*IN, *OUT);
 
   my $userspath = $::lx_office_conf{paths}->{userspath};
-
   $self->{"cwd"} = getcwd();
   $self->{"tmpdir"} = $self->{cwd} . "/${userspath}";
 
@@ -1295,6 +1294,7 @@ sub parse_template {
     $result = $template->parse(*STDOUT);
   }
 
+  Common::copy_file_to_webdav_folder($self)  if ($self->{webdav});
   if (!$result) {
     $self->cleanup();
     $self->error("$self->{IN} : " . $template->get_error());
-- 
2.20.1