equal
deleted
inserted
replaced
67 |
67 |
68 my $doit = 0; |
68 my $doit = 0; |
69 for ($user, $pass, $expiry) { $doit = 1 and last if defined and $_ ne ''; } |
69 for ($user, $pass, $expiry) { $doit = 1 and last if defined and $_ ne ''; } |
70 |
70 |
71 if ($doit) { |
71 if ($doit) { |
|
72 |
|
73 my $conf = readconfig or die "Can't readconfig"; |
72 my @cmd = ( qw(sudo ius-dav-htuseradd -u), $user ); |
74 my @cmd = ( qw(sudo ius-dav-htuseradd -u), $user ); |
73 push @cmd, '-e', $expiry if defined $expiry and $expiry ne ''; |
75 push @cmd, '-e', $expiry if defined $expiry and $expiry ne ''; |
74 |
76 |
75 print $q->hr; |
77 print $q->hr; |
76 if ( my $pass = qx(@cmd) ) { |
78 if ( my $pass = qx(@cmd) ) { |
|
79 |
|
80 my $url = "$conf->{dav_base_remote}/$user"; |
|
81 |
77 chomp $pass; |
82 chomp $pass; |
|
83 |
78 print $q->table( |
84 print $q->table( |
79 $q->Tr( |
85 $q->Tr( |
80 $q->td('Url:'), |
86 $q->td('Url:'), |
81 $q->td('not yet implemented') |
87 $q->td($q->a({ -href => $url }, $url)) |
82 ), |
88 ), |
83 $q->Tr( |
89 $q->Tr( |
84 $q->td('Passwort:'), |
90 $q->td('Passwort:'), |
85 $q->td($pass) |
91 $q->td($pass) |
86 ) |
92 ) |