diff -r 433042c33ad8 -r df24e0f202f1 cgi-bin/ius-dav-htuseradd.cgi --- 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:'),