Allow use of ~ allow dir path

diff --git a/chooser.cgi b/chooser.cgi
index 675b193..1b4dbb5 100755 (executable)
--- a/chooser.cgi
+++ b/chooser.cgi
@@ -24,12 +24,13 @@ if (&get_product_name() eq 'usermin') {
 %access = &get_module_acl();
 
 # Work out root directory
+local @uinfo = getpwnam($remote_user);
 if (!$access{'root'}) {
-       local @uinfo = getpwnam($remote_user);
        $rootdir = $uinfo[7] ? $uinfo[7] : "/";
        }
 else {
        $rootdir = $access{'root'};
+       $rootdir =~ s/^\~/$uinfo[7]/;
        }
 
 # Switch to correct Unix user