# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1311319732 -7200
# Node ID 68a8cf343f66a7cf2076c98069715fd639a17f5c
# Parent  1de953919a97c6038f747860e718aaf66b4d9c7d
add access control by location to config snippets

diff -r 1de953919a97 -r 68a8cf343f66 lib/Ius/Dav/Htpasswd.pm
--- a/lib/Ius/Dav/Htpasswd.pm	Fri Jul 22 09:10:36 2011 +0200
+++ b/lib/Ius/Dav/Htpasswd.pm	Fri Jul 22 09:28:52 2011 +0200
@@ -128,6 +128,8 @@
 
     my $master_user = $conf->{master_user};
     my $conf_file   = "$conf->{conf_d}/$user.conf";
+    (my $loc = $conf->{dav_base_remote}) =~ s|^[^:]+://[^/]+||;
+    $loc .= "/$user";
     open C, '>', $conf_file or die "Can't open '$conf_file': $!";
     print C <<EOC;
 <Directory "$user_dir">
@@ -143,6 +145,11 @@
     Options Indexes
     AllowOverride None
 </Directory>
+<Location "$loc">
+    Order Allow,Deny
+    Allow From All
+    Deny From None
+</Location>
 # vi:ft=apache
 EOC
     close C;