Changeset 297 for trunk/dns.cgi


Ignore:
Timestamp:
04/02/12 17:26:53 (12 years ago)
Author:
Kris Deugau
Message:

/trunk

Move action logging for user delete into delUser(). See #35
Tweak log entry/result message for userStatus() for consistency
and clarity

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dns.cgi

    r296 r297  
    13831383    $page->param(user => userFullName($dbh,$webvar{id}));
    13841384  } elsif ($webvar{del} eq 'ok') {
    1385 ##fixme: find group id user is in (for logging) *before* we delete the user
    1386 ##fixme: get other user data too for log
    1387     my $userref = getUserData($dbh, $webvar{id});
    13881385    my ($code,$msg) = delUser($dbh, $webvar{id});
    13891386    if ($code eq 'OK') {
    13901387      # 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);
    13961389    } 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);
    14041391    }
    14051392  } else {
Note: See TracChangeset for help on using the changeset viewer.