admin/user.php

   1 <?php
   2
   3     require_once('../config.php');
   4     require_once($CFG->libdir.'/adminlib.php');
   5     require_once($CFG->libdir.'/authlib.php');
   6     require_once($CFG->dirroot.'/user/filters/lib.php');
   7     require_once($CFG->dirroot.'/user/lib.php');
   8
   9     $delete       = optional_param('delete', 0, PARAM_INT);
  10     $confirm      = optional_param('confirm', '', PARAM_ALPHANUM);   //md5 confirmation hash
  11     $confirmuser  = optional_param('confirmuser', 0, PARAM_INT);
  12     $sort         = optional_param('sort', 'name', PARAM_ALPHANUM);
  13     $dir          = optional_param('dir', 'ASC', PARAM_ALPHA);
  14     $page         = optional_param('page', 0, PARAM_INT);
  15     $perpage      = optional_param('perpage', 30, PARAM_INT);        // how many per page
  16     $ru           = optional_param('ru', '2', PARAM_INT);            // show remote users
  17     $lu           = optional_param('lu', '2', PARAM_INT);            // show local users
  18     $acl          = optional_param('acl', '0', PARAM_INT);           // id of user to tweak mnet ACL (requires $access)
  19     $suspend      = optional_param('suspend', 0, PARAM_INT);
  20     $unsuspend    = optional_param('unsuspend', 0, PARAM_INT);
  21     $unlock       = optional_param('unlock', 0, PARAM_INT);
  22
  23     admin_externalpage_setup('editusers');
  24
  25     $sitecontext = context_system::instance();
  26     $site = get_site();
  27
  28     if (!has_capability('moodle/user:update', $sitecontext) and !has_capability('moodle/user:delete', $sitecontext)) {
  29         print_error('nopermissions', 'error', '', 'edit/delete users');
  30     }
  31
  32     $stredit   = get_string('edit');
  33     $strdelete = get_string('delete');
  34     $strdeletecheck = get_string('deletecheck');
  35     $strshowallusers = get_string('showallusers');
  36     $strsuspend = get_string('suspenduser', 'admin');
  37     $strunsuspend = get_string('unsuspenduser', 'admin');
  38     $strunlock = get_string('unlockaccount', 'admin');
  39     $strconfirm = get_string('confirm');
  40
  41     if (empty($CFG->loginhttps)) {
  42         $securewwwroot = $CFG->wwwroot;
  43     } else {
  44         $securewwwroot = str_replace('http:','https:',$CFG->wwwroot);
  45     }
  46
  47     $returnurl = new moodle_url('/admin/user.php', array('sort' => $sort, 'dir' => $dir, 'perpage' => $perpage, 'page'=>$page));
  48
  49     // The $user variable is also used outside of these if statements.
  50     $user = null;
  51     if ($confirmuser and confirm_sesskey()) {
  52         require_capability('moodle/user:update', $sitecontext);
  53         if (!$user = $DB->get_record('user', array('id'=>$confirmuser, 'mnethostid'=>$CFG->mnet_localhost_id))) {
  54             print_error('nousers');
  55         }
  56
  57         $auth = get_auth_plugin($user->auth);
  58
  59         $result = $auth->user_confirm($user->username, $user->secret);
  60
  61         if ($result == AUTH_CONFIRM_OK or $result == AUTH_CONFIRM_ALREADY) {
  62             redirect($returnurl);
  63         } else {
  64             echo $OUTPUT->header();
  65             redirect($returnurl, get_string('usernotconfirmed', '', fullname($user, true)));
  66         }
  67
  68     } else if ($delete and confirm_sesskey()) {              // Delete a selected user, after confirmation
  69         require_capability('moodle/user:delete', $sitecontext);
  70
  71         $user = $DB->get_record('user', array('id'=>$delete, 'mnethostid'=>$CFG->mnet_localhost_id), '*', MUST_EXIST);
  72
  73         if ($user->deleted) {
  74             print_error('usernotdeleteddeleted', 'error');
  75         }
  76         if (is_siteadmin($user->id)) {
  77             print_error('useradminodelete', 'error');
  78         }
  79
  80         if ($confirm != md5($delete)) {
  81             echo $OUTPUT->header();
  82             $fullname = fullname($user, true);
  83             echo $OUTPUT->heading(get_string('deleteuser', 'admin'));
  84
  85             $optionsyes = array('delete'=>$delete, 'confirm'=>md5($delete), 'sesskey'=>sesskey());
  86             $deleteurl = new moodle_url($returnurl, $optionsyes);
  87             $deletebutton = new single_button($deleteurl, get_string('delete'), 'post');
  88
  89             echo $OUTPUT->confirm(get_string('deletecheckfull', '', "'$fullname'"), $deletebutton, $returnurl);
  90             echo $OUTPUT->footer();
  91             die;
  92         } else if (data_submitted()) {
  93             if (delete_user($user)) {
  94                 \core\session\manager::gc(); // Remove stale sessions.
  95                 redirect($returnurl);
  96             } else {
  97                 \core\session\manager::gc(); // Remove stale sessions.
  98                 echo $OUTPUT->header();
  99                 echo $OUTPUT->notification($returnurl, get_string('deletednot', '', fullname($user, true)));
 100             }
 101         }
 102     } else if ($acl and confirm_sesskey()) {
 103         if (!has_capability('moodle/user:update', $sitecontext)) {
 104             print_error('nopermissions', 'error', '', 'modify the NMET access control list');
 105         }
 106         if (!$user = $DB->get_record('user', array('id'=>$acl))) {
 107             print_error('nousers', 'error');
 108         }
 109         if (!is_mnet_remote_user($user)) {
 110             print_error('usermustbemnet', 'error');
 111         }
 112         $accessctrl = strtolower(required_param('accessctrl', PARAM_ALPHA));
 113         if ($accessctrl != 'allow' and $accessctrl != 'deny') {
 114             print_error('invalidaccessparameter', 'error');
 115         }
 116         $aclrecord = $DB->get_record('mnet_sso_access_control', array('username'=>$user->username, 'mnet_host_id'=>$user->mnethostid));
 117         if (empty($aclrecord)) {
 118             $aclrecord = new stdClass();
 119             $aclrecord->mnet_host_id = $user->mnethostid;
 120             $aclrecord->username = $user->username;
 121             $aclrecord->accessctrl = $accessctrl;
 122             $DB->insert_record('mnet_sso_access_control', $aclrecord);
 123         } else {
 124             $aclrecord->accessctrl = $accessctrl;
 125             $DB->update_record('mnet_sso_access_control', $aclrecord);
 126         }
 127         $mnethosts = $DB->get_records('mnet_host', null, 'id', 'id,wwwroot,name');
 128         redirect($returnurl);
 129
 130     } else if ($suspend and confirm_sesskey()) {
 131         require_capability('moodle/user:update', $sitecontext);
 132
 133         if ($user = $DB->get_record('user', array('id'=>$suspend, 'mnethostid'=>$CFG->mnet_localhost_id, 'deleted'=>0))) {
 134             if (!is_siteadmin($user) and $USER->id != $user->id and $user->suspended != 1) {
 135                 $user->suspended = 1;
 136                 // Force logout.
 137                 \core\session\manager::kill_user_sessions($user->id);
 138                 user_update_user($user, false);
 139             }
 140         }
 141         redirect($returnurl);
 142
 143     } else if ($unsuspend and confirm_sesskey()) {
 144         require_capability('moodle/user:update', $sitecontext);
 145
 146         if ($user = $DB->get_record('user', array('id'=>$unsuspend, 'mnethostid'=>$CFG->mnet_localhost_id, 'deleted'=>0))) {
 147             if ($user->suspended != 0) {
 148                 $user->suspended = 0;
 149                 user_update_user($user, false);
 150             }
 151         }
 152         redirect($returnurl);
 153
 154     } else if ($unlock and confirm_sesskey()) {
 155         require_capability('moodle/user:update', $sitecontext);
 156
 157         if ($user = $DB->get_record('user', array('id'=>$unlock, 'mnethostid'=>$CFG->mnet_localhost_id, 'deleted'=>0))) {
 158             login_unlock_account($user);
 159         }
 160         redirect($returnurl);
 161     }
 162
 163     // create the user filter form
 164     $ufiltering = new user_filtering();
 165     echo $OUTPUT->header();
 166
 167     // Carry on with the user listing
 168     $context = context_system::instance();
 169     $extracolumns = get_extra_user_fields($context);
 170     // Get all user name fields as an array.
 171     $allusernamefields = get_all_user_name_fields(false, null, null, null, true);
 172     $columns = array_merge($allusernamefields, $extracolumns, array('city', 'country', 'lastaccess'));
 173
 174     foreach ($columns as $column) {
 175         $string[$column] = get_user_field_name($column);
 176         if ($sort != $column) {
 177             $columnicon = "";
 178             if ($column == "lastaccess") {
 179                 $columndir = "DESC";
 180             } else {
 181                 $columndir = "ASC";
 182             }
 183         } else {
 184             $columndir = $dir == "ASC" ? "DESC":"ASC";
 185             if ($column == "lastaccess") {
 186                 $columnicon = ($dir == "ASC") ? "sort_desc" : "sort_asc";
 187             } else {
 188                 $columnicon = ($dir == "ASC") ? "sort_asc" : "sort_desc";
 189             }
 190             $columnicon = $OUTPUT->pix_icon('t/' . $columnicon, get_string(strtolower($columndir)), 'core',
 191                                             ['class' => 'iconsort']);
 192
 193         }
 194         $$column = "<a href=\"user.php?sort=$column&amp;dir=$columndir\">".$string[$column]."</a>$columnicon";
 195     }
 196
 197     // We need to check that alternativefullnameformat is not set to '' or language.
 198     // We don't need to check the fullnamedisplay setting here as the fullname function call further down has
 199     // the override parameter set to true.
 200     $fullnamesetting = $CFG->alternativefullnameformat;
 201     // If we are using language or it is empty, then retrieve the default user names of just 'firstname' and 'lastname'.
 202     if ($fullnamesetting == 'language' || empty($fullnamesetting)) {
 203         // Set $a variables to return 'firstname' and 'lastname'.
 204         $a = new stdClass();
 205         $a->firstname = 'firstname';
 206         $a->lastname = 'lastname';
 207         // Getting the fullname display will ensure that the order in the language file is maintained.
 208         $fullnamesetting = get_string('fullnamedisplay', null, $a);
 209     }
 210
 211     // Order in string will ensure that the name columns are in the correct order.
 212     $usernames = order_in_string($allusernamefields, $fullnamesetting);
 213     $fullnamedisplay = array();
 214     foreach ($usernames as $name) {
 215         // Use the link from $$column for sorting on the user's name.
 216         $fullnamedisplay[] = ${$name};
 217     }
 218     // All of the names are in one column. Put them into a string and separate them with a /.
 219     $fullnamedisplay = implode(' / ', $fullnamedisplay);
 220     // If $sort = name then it is the default for the setting and we should use the first name to sort by.
 221     if ($sort == "name") {
 222         // Use the first item in the array.
 223         $sort = reset($usernames);
 224     }
 225
 226     list($extrasql, $params) = $ufiltering->get_sql_filter();
 227     $users = get_users_listing($sort, $dir, $page*$perpage, $perpage, '', '', '',
 228             $extrasql, $params, $context);
 229     $usercount = get_users(false);
 230     $usersearchcount = get_users(false, '', false, null, "", '', '', '', '', '*', $extrasql, $params);
 231
 232     if ($extrasql !== '') {
 233         echo $OUTPUT->heading("$usersearchcount / $usercount ".get_string('users'));
 234         $usercount = $usersearchcount;
 235     } else {
 236         echo $OUTPUT->heading("$usercount ".get_string('users'));
 237     }
 238
 239     $strall = get_string('all');
 240
 241     $baseurl = new moodle_url('/admin/user.php', array('sort' => $sort, 'dir' => $dir, 'perpage' => $perpage));
 242     echo $OUTPUT->paging_bar($usercount, $page, $perpage, $baseurl);
 243
 244     flush();
 245
 246
 247     if (!$users) {
 248         $match = array();
 249         echo $OUTPUT->heading(get_string('nousersfound'));
 250
 251         $table = NULL;
 252
 253     } else {
 254
 255         $countries = get_string_manager()->get_list_of_countries(true);
 256         if (empty($mnethosts)) {
 257             $mnethosts = $DB->get_records('mnet_host', null, 'id', 'id,wwwroot,name');
 258         }
 259
 260         foreach ($users as $key => $user) {
 261             if (isset($countries[$user->country])) {
 262                 $users[$key]->country = $countries[$user->country];
 263             }
 264         }
 265         if ($sort == "country") {
 266             // Need to resort by full country name, not code.
 267             foreach ($users as $user) {
 268                 $susers[$user->id] = $user->country;
 269             }
 270             // Sort by country name, according to $dir.
 271             if ($dir === 'DESC') {
 272                 arsort($susers);
 273             } else {
 274                 asort($susers);
 275             }
 276             foreach ($susers as $key => $value) {
 277                 $nusers[] = $users[$key];
 278             }
 279             $users = $nusers;
 280         }
 281
 282         $table = new html_table();
 283         $table->head = array ();
 284         $table->colclasses = array();
 285         $table->head[] = $fullnamedisplay;
 286         $table->attributes['class'] = 'admintable generaltable';
 287         foreach ($extracolumns as $field) {
 288             $table->head[] = ${$field};
 289         }
 290         $table->head[] = $city;
 291         $table->head[] = $country;
 292         $table->head[] = $lastaccess;
 293         $table->head[] = get_string('edit');
 294         $table->colclasses[] = 'centeralign';
 295         $table->head[] = "";
 296         $table->colclasses[] = 'centeralign';
 297
 298         $table->id = "users";
 299         foreach ($users as $user) {
 300             $buttons = array();
 301             $lastcolumn = '';
 302
 303             // delete button
 304             if (has_capability('moodle/user:delete', $sitecontext)) {
 305                 if (is_mnet_remote_user($user) or $user->id == $USER->id or is_siteadmin($user)) {
 306                     // no deleting of self, mnet accounts or admins allowed
 307                 } else {
 308                     $url = new moodle_url($returnurl, array('delete'=>$user->id, 'sesskey'=>sesskey()));
 309                     $buttons[] = html_writer::link($url, $OUTPUT->pix_icon('t/delete', $strdelete));
 310                 }
 311             }
 312
 313             // suspend button
 314             if (has_capability('moodle/user:update', $sitecontext)) {
 315                 if (is_mnet_remote_user($user)) {
 316                     // mnet users have special access control, they can not be deleted the standard way or suspended
 317                     $accessctrl = 'allow';
 318                     if ($acl = $DB->get_record('mnet_sso_access_control', array('username'=>$user->username, 'mnet_host_id'=>$user->mnethostid))) {
 319                         $accessctrl = $acl->accessctrl;
 320                     }
 321                     $changeaccessto = ($accessctrl == 'deny' ? 'allow' : 'deny');
 322                     $buttons[] = " (<a href=\"?acl={$user->id}&amp;accessctrl=$changeaccessto&amp;sesskey=".sesskey()."\">".get_string($changeaccessto, 'mnet') . " access</a>)";
 323
 324                 } else {
 325                     if ($user->suspended) {
 326                         $url = new moodle_url($returnurl, array('unsuspend'=>$user->id, 'sesskey'=>sesskey()));
 327                         $buttons[] = html_writer::link($url, $OUTPUT->pix_icon('t/show', $strunsuspend));
 328                     } else {
 329                         if ($user->id == $USER->id or is_siteadmin($user)) {
 330                             // no suspending of admins or self!
 331                         } else {
 332                             $url = new moodle_url($returnurl, array('suspend'=>$user->id, 'sesskey'=>sesskey()));
 333                             $buttons[] = html_writer::link($url, $OUTPUT->pix_icon('t/hide', $strsuspend));
 334                         }
 335                     }
 336
 337                     if (login_is_lockedout($user)) {
 338                         $url = new moodle_url($returnurl, array('unlock'=>$user->id, 'sesskey'=>sesskey()));
 339                         $buttons[] = html_writer::link($url, $OUTPUT->pix_icon('t/unlock', $strunlock));
 340                     }
 341                 }
 342             }
 343
 344             // edit button
 345             if (has_capability('moodle/user:update', $sitecontext)) {
 346                 // prevent editing of admins by non-admins
 347                 if (is_siteadmin($USER) or !is_siteadmin($user)) {
 348                     $url = new moodle_url($securewwwroot.'/user/editadvanced.php', array('id'=>$user->id, 'course'=>$site->id));
 349                     $buttons[] = html_writer::link($url, $OUTPUT->pix_icon('t/edit', $stredit));
 350                 }
 351             }
 352
 353             // the last column - confirm or mnet info
 354             if (is_mnet_remote_user($user)) {
 355                 // all mnet users are confirmed, let's print just the name of the host there
 356                 if (isset($mnethosts[$user->mnethostid])) {
 357                     $lastcolumn = get_string($accessctrl, 'mnet').': '.$mnethosts[$user->mnethostid]->name;
 358                 } else {
 359                     $lastcolumn = get_string($accessctrl, 'mnet');
 360                 }
 361
 362             } else if ($user->confirmed == 0) {
 363                 if (has_capability('moodle/user:update', $sitecontext)) {
 364                     $lastcolumn = html_writer::link(new moodle_url($returnurl, array('confirmuser'=>$user->id, 'sesskey'=>sesskey())), $strconfirm);
 365                 } else {
 366                     $lastcolumn = "<span class=\"dimmed_text\">".get_string('confirm')."</span>";
 367                 }
 368             }
 369
 370             if ($user->lastaccess) {
 371                 $strlastaccess = format_time(time() - $user->lastaccess);
 372             } else {
 373                 $strlastaccess = get_string('never');
 374             }
 375             $fullname = fullname($user, true);
 376
 377             $row = array ();
 378             $row[] = "<a href=\"../user/view.php?id=$user->id&amp;course=$site->id\">$fullname</a>";
 379             foreach ($extracolumns as $field) {
 380                 $row[] = $user->{$field};
 381             }
 382             $row[] = $user->city;
 383             $row[] = $user->country;
 384             $row[] = $strlastaccess;
 385             if ($user->suspended) {
 386                 foreach ($row as $k=>$v) {
 387                     $row[$k] = html_writer::tag('span', $v, array('class'=>'usersuspended'));
 388                 }
 389             }
 390             $row[] = implode(' ', $buttons);
 391             $row[] = $lastcolumn;
 392             $table->data[] = $row;
 393         }
 394     }
 395
 396     // add filters
 397     $ufiltering->display_add();
 398     $ufiltering->display_active();
 399
 400     if (!empty($table)) {
 401         echo html_writer::start_tag('div', array('class'=>'no-overflow'));
 402         echo html_writer::table($table);
 403         echo html_writer::end_tag('div');
 404         echo $OUTPUT->paging_bar($usercount, $page, $perpage, $baseurl);
 405     }
 406     if (has_capability('moodle/user:create', $sitecontext)) {
 407         $url = new moodle_url($securewwwroot . '/user/editadvanced.php', array('id' => -1));
 408         echo $OUTPUT->single_button($url, get_string('addnewuser'), 'get');
 409     }
 410
 411     echo $OUTPUT->footer();