| 126 | | my $htaccess_users_content = ''; |
|---|
| 127 | | |
|---|
| 128 | | if (-e $htaccess_users_file) { |
|---|
| 129 | | |
|---|
| 130 | | open(F, '<', $htaccess_users_file); |
|---|
| 131 | | |
|---|
| 132 | | while (!eof(F)) { |
|---|
| 133 | | |
|---|
| 134 | | my $line = readline(F); |
|---|
| 135 | | |
|---|
| 136 | | $htaccess_users_content .= $line if ($line !~ /^$uname:/); |
|---|
| 137 | | |
|---|
| 138 | | |
|---|
| 139 | | } |
|---|
| 140 | | |
|---|
| 141 | | close(F); |
|---|
| 142 | | |
|---|
| 143 | | $htaccess_users_content .= "$uname:$upass\n"; |
|---|
| 144 | | |
|---|
| 145 | | } else { |
|---|
| 146 | | |
|---|
| 147 | | $htaccess_users_content = "$uname:$upass\n"; |
|---|
| 148 | | |
|---|
| 149 | | } |
|---|
| 150 | | |
|---|
| 151 | | $rs = store_file($htaccess_users_file, $htaccess_users_content, 'root', 'root', 0644); |
|---|
| | 126 | # Open Passwordfile |
|---|
| | 127 | $user_add = new Apache::HTpasswd({passwdFile => $htaccess_users_file}); |
|---|
| | 128 | |
|---|
| | 129 | # Since we only want add / replace we overwrite if exists |
|---|
| | 130 | |
|---|
| | 131 | $rs = $user_add->htpasswd($uname,$upass,{'overwrite' => 1}); |
|---|
| | 132 | |
|---|
| | 133 | if ($rs != 1) { |
|---|
| | 134 | |
|---|
| | 135 | push_el(\@main::el, 'htuser_add_user_data()', 'Failed to add/replace user'); |
|---|
| | 136 | |
|---|
| | 137 | } else{ |
|---|
| | 138 | |
|---|
| | 139 | $rs = setfmode($htaccess_users_file, 'root', 'root', 0644); |
|---|
| | 140 | |
|---|
| | 141 | } |
|---|
