From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 5 Jul 2007 09:57:34 +0000 (+0000)
Subject: Webdav: Wenn eine Pfadkomponente Leerzeichen enthielt (z.B. "Storno zu ..."), dann... 
X-Git-Tag: release-2.4.3^2~42
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=e436a6b05600897aed8c5420d44bf4e1b39cb74f;p=kivitendo-erp.git

Webdav: Wenn eine Pfadkomponente Leerzeichen enthielt (z.B. "Storno zu ..."), dann wurden komplett falsche Links erzeugt.
---

diff --git a/SL/Common.pm b/SL/Common.pm
index 9c83c7d17..c67c58c00 100644
--- a/SL/Common.pm
+++ b/SL/Common.pm
@@ -290,13 +290,24 @@ sub webdav_folder {
   } else {
     my $base_path = substr($ENV{'SCRIPT_NAME'}, 1);
     $base_path =~ s|[^/]+$||;
+    $base_path =~ s|/$||;
 
-    foreach my $file (<$path/*>) {
-      my $fname = $file;
-      $fname =~ s|.*/||;
-      $form->{WEBDAV}{$fname} =
-        ($ENV{"HTTPS"} ? "https://" : "http://") .
-        $ENV{'SERVER_NAME'} . "/" . $base_path . $file;
+    if (opendir $dir, $path) {
+      foreach my $file (readdir $dir) {
+        next if (($file eq '.') || ($file eq '..'));
+
+        my $fname = $file;
+        $fname  =~ s|.*/||;
+
+        my $physical_file = "$path/$file";
+
+        $file  = join('/', map { $form->escape($_) } grep { $_ } split m|/+|, "$path/$file");
+        $file .=  '/' if (-d $physical_file);
+
+        $form->{WEBDAV}->{$fname} = ($ENV{"HTTPS"} ? "https://" : "http://") . $ENV{'SERVER_NAME'} . "/$base_path/$file";
+      }
+
+      closedir $dir;
     }
   }
 
diff --git a/doc/changelog b/doc/changelog
index 809673cd1..80789179e 100644
--- a/doc/changelog
+++ b/doc/changelog
@@ -117,6 +117,8 @@
 
   Bugfixes:
 
+  - Webdav: Wenn eine Pfadkomponente Leerzeichen enthielt
+    (z.B. "Storno zu ..."), dann wurden komplett falsche Links erzeugt.
   - Bei Einkaufsrechnungen wurde das falsche Datumsfeld zur Berechnung
     der Steuern herangezogen, sodass für 2006 19% benutzt wurde.
   - Beim Erfassen von Dienstleistungen wurde beim "Erneuern" die