Changeset 297 for trunk/dns.cgi
- Timestamp:
- 04/02/12 17:26:53 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dns.cgi
r296 r297 1383 1383 $page->param(user => userFullName($dbh,$webvar{id})); 1384 1384 } elsif ($webvar{del} eq 'ok') { 1385 ##fixme: find group id user is in (for logging) *before* we delete the user1386 ##fixme: get other user data too for log1387 my $userref = getUserData($dbh, $webvar{id});1388 1385 my ($code,$msg) = delUser($dbh, $webvar{id}); 1389 1386 if ($code eq 'OK') { 1390 1387 # success. go back to the user list, do not pass "GO" 1391 # actions on users have a domain id of 0, always 1392 logaction(0, $session->param("username"), $curgroup, "Deleted user $webvar{id}/".$userref->{username}. 1393 " (".$userref->{lastname}.", ".$userref->{firstname}.")"); 1394 changepage(page => "useradmin", resultmsg => "Deleted user ".$userref->{username}. 1395 " (".$userref->{lastname}.", ".$userref->{firstname}.")"); 1388 changepage(page => "useradmin", resultmsg => $msg); 1396 1389 } else { 1397 # need to find failure mode 1398 $page->param(del_failed => 1); 1399 $page->param(errmsg => $msg); 1400 list_users($curgroup); 1401 logaction(0, $session->param("username"), $curgroup, "Failed to delete user ". 1402 "$webvar{id}/".$userref->{username}.": $msg") 1403 if $config{log_failures}; 1390 changepage(page => "useradmin", errmsg => $msg); 1404 1391 } 1405 1392 } else {
Note:
See TracChangeset
for help on using the changeset viewer.