function deletemember() {
global $fm;

if (count($del_ids = $fm->_Array('del')) === 0) {
$fm->_Message($fm->LANG['MainMsg'],$fm->LANG['UsersNotSelected'],'',1);
}

if ($fm->_String('mode') !== '') delet_mail();

$deletedTotal = 0;
$users = $fm->_Read2Write($fp_users,FM_USERS);
foreach ($del_ids as $user_id) {
if (file_exists('members/'.$user_id.'.php')) unlink('members/'.$user_id.'.php');
if (file_exists('messages/'.$userid.'-out.php')) {unlink('messages/'.$userid.'-out.php');}
if (file_exists('messages/'.$userid.'-msg.php')) {unlink('messages/'.$userid.'-msg.php');}
if (file_exists('modules/belong/data/'.$userid.'.db')) {unlink('modules/belong/data/'.$userid.'.db');}
if (file_exists('modules/reputation/data/'.$userid.'.php')) {unlink('modules/reputation/data/'.$userid.'.php');}
if (file_exists('modules/watches/data/db2_member'.$userid.'.db')) {unlink('modules/watches/data/db2_member'.$userid.'.db');}
if (file_exists('modules/watches/data/db3_member'.$userid.'.db')) {unlink('modules/watches/data/db3_member'.$userid.'.db');}
if (file_exists('im/avatars/personal/'.$userid.'-avatar.jpg')) {unlink('im/avatars/personal/'.$userid.'-avatar.jpg');}
if (file_exists('im/avatars/personal/'.$userid.'-avatar.gif')) {unlink('im/avatars/personal/'.$userid.'-avatar.gif');}
if (file_exists('modules/birstday/data/birstday_data.php')) {
$birstdays = $fm->_Read2Write($fp_birst, 'modules/birstday/data/birstday_data.php', false);
$SaveFlag = false;
foreach ($birstdays as $day => $users) {
foreach ($users as $id => $info) {
if ($id == $userid) {unset($birstdays[$day][$userid]); $SaveFlag = true;}
}
if (count($birstdays[$day]) == 0) {unset($birstdays[$day]); $SaveFlag = true;}
}
($SaveFlag === true) ? $fm->_Write($fp_birst, $birstdays) : $fm->_Fclose($fp_birst);
}
if (isset($users[$user_id])) unset($users[$user_id]);
$deletedTotal++;
}
$fm->_Write($fp_users,$users);
$fm->_SAVE_STATS(array ('totalmembers' => array($deletedTotal, -1)));
$redir = '';
if ($fm->_String('s')) $redir .= '&s='.$fm->input['s'];
if ($fm->_String('order')) $redir .= '&order='.$fm->input['order'];
if ($fm->_Intval('p')) $redir .= '&p='.$fm->input['p'];
if ($fm->_Intval('pg')) $redir .= '&pg='.$fm->input['pg'];
$fm->_Message($fm->LANG['MainMsg'],$fm->LANG['UsersDeleteOk'],'setmodule.php?module=memcontrol'.$redir,1);
}