cgi-bin/ius-dav-htuseradd.cgi
branchfoerste
changeset 31 df24e0f202f1
parent 30 433042c33ad8
child 33 be97a7cbe807
--- a/cgi-bin/ius-dav-htuseradd.cgi	Mon Jul 18 13:48:33 2011 +0200
+++ b/cgi-bin/ius-dav-htuseradd.cgi	Mon Jul 18 14:06:28 2011 +0200
@@ -69,16 +69,22 @@
 for ($user, $pass, $expiry) { $doit = 1 and last if defined and $_ ne ''; }
 
 if ($doit) {
+
+    my $conf = readconfig or die "Can't readconfig"; 
     my @cmd = ( qw(sudo ius-dav-htuseradd -u), $user );
     push @cmd, '-e', $expiry if defined $expiry and $expiry ne '';
 
     print $q->hr;
     if ( my $pass = qx(@cmd) ) {
+
+        my $url = "$conf->{dav_base_remote}/$user";
+
         chomp $pass;
+
         print $q->table(
             $q->Tr(
                 $q->td('Url:'),
-                $q->td('not yet implemented')
+                $q->td($q->a({ -href => $url }, $url))
             ),
             $q->Tr(
                 $q->td('Passwort:'),