| … | |
… | |
| 182 | $self->{permissions_db}->connect("rw"); |
182 | $self->{permissions_db}->connect("rw"); |
| 183 | delete $self->{permissions_db}->hashRef->{$user}; |
183 | delete $self->{permissions_db}->hashRef->{$user}; |
| 184 | $self->{permissions_db}->disconnect; |
184 | $self->{permissions_db}->disconnect; |
| 185 | } |
185 | } |
| 186 | |
186 | |
| 187 | # ----- ghetto for stupid functions ----- |
|
|
| 188 | |
|
|
| 189 | sub change_user_in_password_file($$$) { |
|
|
| 190 | my $self = shift; |
|
|
| 191 | my $user = shift; |
|
|
| 192 | my $new_user = shift; |
|
|
| 193 | $self->{password_db}->connect("rw"); |
|
|
| 194 | my $pwhash = $self->{password_db}->hashRef; # make things easier |
|
|
| 195 | if (exists $pwhash->{$user}) { |
|
|
| 196 | $pwhash->{$new_user} = $pwhash->{$user}; |
|
|
| 197 | delete $pwhash->{$user}; |
|
|
| 198 | } |
|
|
| 199 | $self->{password_db}->disconnect; |
|
|
| 200 | } |
|
|
| 201 | |
|
|
| 202 | sub change_user_in_permissions_file($$$) { |
|
|
| 203 | my $self = shift; |
|
|
| 204 | my $user = shift; |
|
|
| 205 | my $new_user = shift; |
|
|
| 206 | $self->{permissions_db}->connect("rw"); |
|
|
| 207 | my $permhash = $self->{permissions_db}->hashRef; # make things easier |
|
|
| 208 | if (exists $permhash->{$user}) { |
|
|
| 209 | $permhash->{$new_user} = $permhash->{$user}; |
|
|
| 210 | delete $permhash->{$user}; |
|
|
| 211 | } |
|
|
| 212 | $self->{permissions_db}->disconnect; |
|
|
| 213 | } |
|
|
| 214 | |
|
|
| 215 | 1; |
187 | 1; |
Parent Directory
| 
Revision Log
| 
Patch