--- 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:'),