equal
deleted
inserted
replaced
154 |
154 |
155 sub userdel { |
155 sub userdel { |
156 |
156 |
157 my ( $conf, $user ) = @_; |
157 my ( $conf, $user ) = @_; |
158 |
158 |
159 my $rc; |
159 my $rc = 0; |
160 |
160 |
161 for (qw(dav_base_local htpasswd conf_d)) { |
161 for (qw(dav_base_local htpasswd conf_d)) { |
162 die "Can't determine '$_' - please check configuration" |
162 die "Can't determine '$_' - please check configuration" |
163 unless defined $conf->{$_}; |
163 unless defined $conf->{$_}; |
164 } |
164 } |
181 unlink $conf_file |
181 unlink $conf_file |
182 or $rc = -1 and warn "Can't unlink '$conf_file': $!"; |
182 or $rc = -1 and warn "Can't unlink '$conf_file': $!"; |
183 |
183 |
184 0 == system qw(apache2ctl graceful) |
184 0 == system qw(apache2ctl graceful) |
185 or $rc = -1 and warn "Can't 'apache2ctl graceful'!"; |
185 or $rc = -1 and warn "Can't 'apache2ctl graceful'!"; |
|
186 |
|
187 return $rc; |
186 |
188 |
187 } |
189 } |
188 |
190 |
189 sub userexpiry { |
191 sub userexpiry { |
190 |
192 |