<?php
/*
 * e107 website system
 *
 * Copyright (C) 2008-2013 e107 Inc (e107.org)
 * Released under the terms and conditions of the
 * GNU General Public License (http://www.gnu.org/licenses/gpl.txt)
 *
 * PM Plugin - administration
 *
 */


/**
 *	e107 Private messenger plugin
 *
 *	@package	e107_plugins
 *	@subpackage	pm
 */


/*
TODO:
1. Limits page needs some lines round the table
2. Prefs - use new get method
3. Maintenance page - to be tested
4. Put prefs into plugin.xml
5. User option to enable/disable email notification of PMs
6. Cron-triggered bulk send.
7. What are implications of 'anyone but' userclasses?
*/


$retrieve_prefs[] = 'pm_prefs';
$eplug_admin = TRUE;
require_once(__DIR__.'/../../class2.php');

if (!e107::isInstalled('pm') || !getperms('P'))
{
	e107::redirect('admin');
	exit;
}

require_once(e_PLUGIN.'pm/pm_class.php');
//require_once(e_HANDLER.'userclass_class.php');		Should already be loaded
$mes = e107::getMessage();

$action = e_QUERY;

require_once(e_ADMIN.'auth.php');

if($action == '')
{
	$action = 'main';
}


// $pm_prefs = $sysprefs->getArray('pm_prefs');
$pm_prefs = e107::getPlugPref('pm');




//pm_prefs record not found in core table, set to defaults and create record
/*
if(!is_array($pm_prefs))
{
	require_once(e_PLUGIN.'pm/pm_default.php');
	$pm_prefs = pm_set_default_prefs();			// Use the default settings
	$sysprefs->setArray('pm_prefs');
	$emessage->add(ADLAN_PM_3, E_MESSAGE_INFO);
	$e107->admin_log->add('PM_ADM_01', '');
}
*/

// Couple of bits of BC/upgrade
/*
$savePMP = FALSE;
if (isset($pref['pm_limits']))
{
	if (!isset($pm_prefs['pm_limits']))
	{
		$pm_prefs['pm_limits'] = $pref['pm_limits'];
		$savePMP = TRUE;
	}
	unset($pref['pm_limits']);
	save_prefs();
}

if (isset($pm_prefs['allow_userclass']))
{
	if (!isset($pm_prefs['opt_userclass']))
	{
		$pm_prefs['opt_userclass'] = e_UC_NOBODY;
		if ($pm_prefs['allow_userclass'])
		{
			$pm_prefs['opt_userclass'] = e_UC_MEMBERS;
		}
	}
	unset($pm_prefs['allow_userclass']);
	$savePMP = TRUE;
}

if ($savePMP)
{
	// $sysprefs->setArray('pm_prefs');
	// $emessage->add(ADLAN_PM_80, E_MESSAGE_SUCCESS);
}
*/

//include_lan(e_PLUGIN.'pm/languages/admin/'.e_LANGUAGE.'.php');
	
if (isset($_POST['update_prefs'])) 
{
	$temp = array();
	foreach($_POST as $k => $v)
	{
		if (strpos($k, 'pm_option-') === 0)
		{
			$k = str_replace('pm_option-','',$k);
			$temp[$k] = $v;
		}
	}
	if (e107::getLog()->logArrayDiffs($temp, $pm_prefs, 'PM_ADM_02'))
	{
	//	$sysprefs->setArray('pm_prefs');
	//print_a($temp);
		e107::getPlugConfig('pm')->setPref($temp)->save();
	}
	else
	{
		$mes->addInfo(LAN_NO_CHANGE);
	}
}


// Mantenance options
if (isset($_POST['pm_maint_execute']))
{
	$maintOpts = array();
	if (vartrue($_POST['pm_maint_sent']))
	{
		$maintOpts['sent'] = 1;
	}
	if (vartrue($_POST['pm_maint_rec']))
	{
		$maintOpts['rec'] = 1;
	}
	if (vartrue($_POST['pm_maint_blocked']))
	{
		$maintOpts['blocked'] = 1;
	}
	if (vartrue($_POST['pm_maint_expired']))
	{
		$maintOpts['expired'] = 1;
	}
	if (vartrue($_POST['pm_maint_attach']))
	{
		$maintOpts['attach'] = 1;
	}
	$result = doMaint($maintOpts, $pm_prefs);
	if (is_array($result))
	{
		foreach ($result as $k => $ma)
		{
			foreach ($ma as $m)
			{
				$mes->add($m, $k);
			}
		}
	}
}


if(isset($_POST['addlimit']))
{
	$id = intval($_POST['newlimit_class']);
	if($sql->select('generic','gen_id',"gen_type = 'pm_limit' AND gen_datestamp = ".$id))
	{
		$mes->addInfo(ADLAN_PM_5); // 'Limit for selected user class already exists'
	}
	else
	{
		$limArray = array(			// Strange field names because we use the 'generic' table. But at least it documents the correlation
			'gen_type' => 'pm_limit',
			'gen_datestamp' => intval($_POST['newlimit_class']),
			'gen_user_id' => intval($_POST['new_inbox_count']),
			'gen_ip' => intval($_POST['new_outbox_count']),
			'gen_intdata' => intval($_POST['new_inbox_size']),
			'gen_chardata' => intval($_POST['new_outbox_size'])
			);

		if($sql->insert('generic', $limArray))
		{
			e107::getLog()->addArray($limArray)->save('PM_ADM_05');
			$mes->addSuccess(ADLAN_PM_6);
		}
		else
		{
			e107::getLog()->add('PM_ADM_08', '');
			$mes->addError(ADLAN_PM_7); 
		}
	}
}

if(isset($_POST['updatelimits']))
{
	$limitVal = intval($_POST['pm_limits']);
	if($pm_prefs['pm_limits'] != $limitVal)
	{
		$pm_prefs['pm_limits'] = $limitVal;
		//$sysprefs->setArray('pm_prefs');
		$mes->addSuccess(ADLAN_PM_8);
	}
	foreach(array_keys($_POST['inbox_count']) as $id)
	{
		$id = intval($id);
		if($_POST['inbox_count'][$id] == '' && $_POST['outbox_count'][$id] == '' && $_POST['inbox_size'][$id] == '' && $_POST['outbox_size'][$id] == '')
		{
			//All entries empty - Remove record
			if($sql->delete('generic','gen_id = '.$id))
			{
				e107::getLog()->add('PM_ADM_07', 'ID: '.$id);
				$mes->addSuccess($id.ADLAN_PM_9);
			}
			else
			{
				e107::getLog()->add('PM_ADM_10', '');
				$mes->addError($id.ADLAN_PM_10);
			}
		}
		else
		{
			$limArray = array(			// Strange field names because we use the 'generic' table. But at least it documents the correlation
				'gen_user_id' => intval($_POST['inbox_count'][$id]),
				'gen_ip' => intval($_POST['outbox_count'][$id]),
				'gen_intdata' => intval($_POST['inbox_size'][$id]),
				'gen_chardata' => intval($_POST['outbox_size'][$id])
				);
			if ($sql->update('generic',array('data' => $limArray, 'WHERE' => 'gen_id = '.$id)))
			{
				e107::getLog()->addArray($limArray)->save('PM_ADM_06');
				$mes->addSuccess($id.ADLAN_PM_11);
			}
			else
			{
				e107::getLog()->add('PM_ADM_09', '');
				$mes->addError($id.ADLAN_PM_7);
			}
		}
	}
}


$ns->tablerender($caption, $mes->render() . $text);


switch ($action)
{
	case 'main' :
		$ns->tablerender(ADLAN_PM_12, show_options($pm_prefs));
		break;
	case 'limits' :
		$ns->tablerender(ADLAN_PM_14, show_limits($pm_prefs));
		$ns->tablerender(ADLAN_PM_15, add_limit($pm_prefs));
		break;
	case 'maint' :
		$ns->tablerender(ADLAN_PM_60, renderPMMaint($pm_prefs));
		break;
}

require_once(e_ADMIN.'footer.php');

function show_options($pm_prefs)
{
	$frm    = e107::getForm();
	$txt = "
	<fieldset id='plugin-pm-prefs'>
	<form method='post' action='".e_SELF."'>
	<table class='table adminform'>
	<colgroup span='2'>
		<col class='col-label' />
		<col class='col-control' />
	</colgroup>
	<tbody>
	<tr>
		<td>".ADLAN_PM_16."</td>
		<td>".$frm->text('pm_option-title', varset($pm_prefs['title']), '50')."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_23."</td>
		<td>".e107::getUserClass()->uc_dropdown('pm_option-pm_class', varset($pm_prefs['pm_class']), 'member,admin,classes')."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_29."</td>
		<td>".e107::getUserClass()->uc_dropdown('pm_option-sendall_class', varset($pm_prefs['sendall_class']), 'nobody,member,admin,classes')."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_88."</td>
		<td>"; 

	$list = e107::getUserClass()->getClassList('nobody,main,admin,member,classes');
	$list['matchclass'] = ADLAN_PM_89; 

	//$txt .= print_a($list,true);
	$txt .= $frm->select('pm_option-send_to_class', $list, varset($pm_prefs['send_to_class'], e_UC_MEMBER));

	//$text .= ".e107::getUserClass()->uc_dropdown('pm_option-sendall_class', $pm_prefs['sendall_class'], 'nobody,member,admin,classes')."</td>

	$txt .= "</td>
	</tr>


	<tr>
		<td>".ADLAN_PM_17."</td>
		<td>".$frm->radio_switch('pm_option-animate', varset($pm_prefs['animate']), LAN_YES, LAN_NO)."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_18."</td>
		<td>".$frm->radio_switch('pm_option-dropdown', varset($pm_prefs['dropdown']), LAN_YES, LAN_NO)."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_19."</td>
		<td>".$frm->text('pm_option-read_timeout', varset($pm_prefs['read_timeout']), '5', array('class' => 'tbox input-text'))."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_20."</td>
		<td>".$frm->text('pm_option-unread_timeout', varset($pm_prefs['unread_timeout']), '5', array('class' => 'tbox input-text'))."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_21."</td>
		<td>".$frm->radio_switch('pm_option-popup', varset($pm_prefs['popup']), LAN_YES, LAN_NO)."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_22."</td>
		<td class='form-inline'>".$frm->text('pm_option-popup_delay', varset($pm_prefs['popup_delay']), '5', array('class' => 'tbox input-text'))." ".ADLAN_PM_44."</td>
	</tr>

	<tr>
		<td>".ADLAN_PM_24."</td>
		<td>".$frm->text('pm_option-perpage', varset($pm_prefs['perpage']), '5', array('class' => 'tbox input-text'))."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_25."</td>
		<td>".e107::getUserClass()->uc_dropdown('pm_option-notify_class', varset($pm_prefs['notify_class']), 'nobody,member,admin,classes')."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_26."</td>
		<td>".e107::getUserClass()->uc_dropdown('pm_option-receipt_class', varset($pm_prefs['receipt_class']), 'nobody,member,admin,classes')."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_27."</td>
		<td>".e107::getUserClass()->uc_dropdown('pm_option-attach_class', varset($pm_prefs['attach_class']), 'nobody,member,admin,classes')."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_28."</td>
		<td class='form-inline'>".$frm->text('pm_option-attach_size', varset($pm_prefs['attach_size']), '8', array('class' => 'tbox input-text'))." kB</td>
	</tr>

	<tr>
		<td>".ADLAN_PM_30."</td>
		<td>".e107::getUserClass()->uc_dropdown('pm_option-multi_class', varset($pm_prefs['multi_class']), 'nobody,member,admin,classes')."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_31."</td>
		<td>".e107::getUserClass()->uc_dropdown('pm_option-opt_userclass', varset($pm_prefs['opt_userclass']), 'nobody,member,admin,classes')."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_81."</td>
		<td class='form-inline'>".$frm->text('pm_option-v', varset($pm_prefs['pm_max_send']), '5', array('class' => 'tbox input-text'))."<span class='field-help'>".ADLAN_PM_82."</span></td>
	</tr>
	</tbody>
	</table>
	<div class='buttons-bar center'>
		".$frm->admin_button('update_prefs','no-value','update', LAN_UPDATE)."
	</div>
	</form>
	</fieldset>
	";
	return $txt;
}


function show_limits($pm_prefs)
{
	$sql = e107::getDb();
	$frm = e107::getForm();
	
	if (!isset($pm_prefs['pm_limits'])) { $pm_prefs['pm_limits'] = 0; }

	if($sql->select('generic', "gen_id as limit_id, gen_datestamp as limit_classnum, gen_user_id as inbox_count, gen_ip as outbox_count, gen_intdata as inbox_size, gen_chardata as outbox_size", "gen_type = 'pm_limit'"))
	{
		while($row = $sql->fetch())
		{
			$limitList[$row['limit_classnum']] = $row;
		}
	}
	$txt = "
		<fieldset id='plugin-pm-showlimits'>
		<form method='post' action='".e_SELF.'?'.e_QUERY."'>
		<table class='table adminform'>
		<colgroup>
			<col class='col-label' />
			<col class='col-control' />
			<col class='col-control' />
		</colgroup>
		<thead>
			<tr>
			<th>".LAN_USERCLASS."</th>
			<th>".ADLAN_PM_37."</th>
			<th>".ADLAN_PM_38."</th>
		</tr>
		</thead>
		<tbody>
		<tr>
			<td colspan='3' style='text-align:left'>".ADLAN_PM_45." 
			<select name='pm_limits' class='tbox'>
		";
		$sel = ($pm_prefs['pm_limits'] == 0 ? "selected='selected'" : "");
		$txt .= "<option value='0' {$sel}>".ADLAN_PM_33."</option>\n";

		$sel = ($pm_prefs['pm_limits'] == 1 ? "selected='selected'" : "");
		$txt .= "<option value='1' {$sel}>".ADLAN_PM_34."</option>\n";

		$sel = ($pm_prefs['pm_limits'] == 2 ? "selected='selected'" : "");
		$txt .= "<option value='2' {$sel}>".ADLAN_PM_35."</option>\n";

		$txt .= "</select>\n";
		
		$txt .= '&nbsp;&nbsp;'.ADLAN_PM_77."
			</td>
		</tr>
	
	";

	if (isset($limitList)) 
	{ 
		foreach($limitList as $row)
		{
			$txt .= "
			<tr>
			<td>".e107::getUserClass()->getName($row['limit_classnum'])."</td>
			<td>
			".LAN_PLUGIN_PM_INBOX.": <input type='text' class='tbox' size='5' name='inbox_count[{$row['limit_id']}]' value='{$row['inbox_count']}' /> <br />
			".LAN_PLUGIN_PM_OUTBOX.": <input type='text' class='tbox' size='5' name='outbox_count[{$row['limit_id']}]' value='{$row['outbox_count']}' />
			</td>
			<td>
			".LAN_PLUGIN_PM_INBOX.": <input type='text' class='tbox' size='5' name='inbox_size[{$row['limit_id']}]' value='{$row['inbox_size']}' /> <br />
			".LAN_PLUGIN_PM_OUTBOX.": <input type='text' class='tbox' size='5' name='outbox_size[{$row['limit_id']}]' value='{$row['outbox_size']}' />
			</td>
			</tr>
			";
		}
	} 
	else 
	{
		$txt .= "
		<tr>
		<td colspan='3' style='text-align: center'>".ADLAN_PM_41."</td>
		</tr>
		";
	}

	$txt .= '
	</tbody>
	</table>
	<div class="buttons-bar center">
	'.$frm->admin_button('updatelimits','no-value','update', LAN_UPDATE).'
	</div>
	</form>
	</fieldset>';
	return $txt;
}




function add_limit($pm_prefs)
{
	$sql = e107::getDb();
	$frm = e107::getForm();
	
	if($sql->select('generic', "gen_id as limit_id, gen_datestamp as limit_classnum, gen_user_id as inbox_count, gen_ip as outbox_count, gen_intdata as inbox_size, gen_chardata as outbox_size", "gen_type = 'pm_limit'"))
	{
		while($row = $sql->fetch())
		{
			$limitList[$row['limit_classnum']] = $row;
		}
	}
	$txt = "
		<fieldset id='plugin-pm-addlimit'>
		<form method='post' action='".e_SELF.'?'.e_QUERY."'>
		<table class='table adminform'>
		<colgroup>
			<col class='col-label' />
			<col class='col-control' />
			<col class='col-control' />
		</colgroup>
		<thead>
		<tr>
			<th>".LAN_USERCLASS."</th>
			<th>".ADLAN_PM_37."</th>
			<th>".ADLAN_PM_38."</th>
			</tr>
		</thead>
		<tbody>
	";

	$txt .= "
	<tr>
	<td>".e107::getUserClass()->uc_dropdown('newlimit_class', 0, 'guest,member,admin,classes')."</td>
	<td>
		".LAN_PLUGIN_PM_INBOX.": <input type='text' class='tbox' size='5' name='new_inbox_count' value='' /> <br />
		".LAN_PLUGIN_PM_OUTBOX.": <input type='text' class='tbox' size='5' name='new_outbox_count' value='' />
	</td>
	<td>
		".LAN_PLUGIN_PM_INBOX.": <input type='text' class='tbox' size='5' name='new_inbox_size' value='' /> <br />
		".LAN_PLUGIN_PM_OUTBOX.": <input type='text' class='tbox' size='5' name='new_outbox_size' value='' />
	</td>
	</tr>

	";

	$txt .= '
	</tbody>
	</table>
	<div class="buttons-bar center">
	'.$frm->admin_button('addlimit','no-value','update', LAN_ADD).'
	</div>
	</form>
	</fieldset>';
	return $txt;
}


function renderPMMaint($pmPrefs)
{
	$frm = e107::getForm();

	$txt = "
	<fieldset id='plugin-pm-maint'>
	<legend>".ADLAN_PM_62."</legend>
	<form method='post' action='".e_SELF."?maint'>
	<table class='table adminform'>
	<colgroup>
		<col class='col-label' />
		<col class='col-control' />
	</colgroup>
	<tbody>
	<tr>
		<td>".ADLAN_PM_63."</td>
		<td>".$frm->radio_switch('pm_maint_sent', '', LAN_YES, LAN_NO)."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_64."</td>
		<td>".$frm->radio_switch('pm_maint_rec', '', LAN_YES, LAN_NO)."</td>
	</tr>
	<tr>
		<td>".ADLAN_PM_65."</td>
		<td>".$frm->radio_switch('pm_maint_blocked', '', LAN_YES, LAN_NO)."</td>
	</tr>
	";

	if ($pmPrefs['read_timeout'] || $pmPrefs['unread_timeout'])
	{
		$txt .= "
		<tr>
			<td>".ADLAN_PM_71."</td>
			<td>".$frm->radio_switch('pm_maint_expired', '', LAN_YES, LAN_NO)."</td>
		</tr>";
	}

	$txt .= "
	<tr>
		<td>".ADLAN_PM_78."</td>
		<td>".$frm->radio_switch('pm_maint_attach', '', LAN_YES, LAN_NO)."</td>
	</tr>
	</tbody>
	</table>
	<div class='buttons-bar center'>
		".$frm->admin_button('pm_maint_execute','no-value','delete', LAN_GO)."
	</div>
	</form>
	</fieldset>
	";
	return $txt;
}



/**
 *	Turn the array produced by doMaint for message display into an array of log strings.
 *	Data is sorted into time stamp order
 *
 *	@param array $results - array of arrays as returned from doMaint()
 *	@param array|boolean $extra - optional additional information which is sorted into the main result according to keys - so use low numbers 
 *	to make the entry appear at the beginning, and text strings to add to the end.
 */
function makeLogEntry($results, $extra = FALSE)
{
	$logPrefixes = array(E_MESSAGE_SUCCESS => 'Pass - ', E_MESSAGE_ERROR => 'Fail - ', E_MESSAGE_INFO => 'Info - ', E_MESSAGE_DEBUG => 'Debug - ');
	$res = array();
	foreach ($results as $k => $ma)
	{
		foreach ($ma as $ts => $m)
		{
			$res[$ts] = $logPrefixes[$k].$m;
		}
	}
	if (is_array($extra))
	{
		$res = array_merge($res, $extra);
	}
	ksort($res);		// Sort in ascending order of timestamp
	return $res;
}


/**
 * 	Do PM DB maintenance
 *	@param array $opts of tasks key = sent|rec|blocked|expired  (one or more present). ATM value not used
 *	@return array where key is message type (E_MESSAGE_SUCCESS|E_MESSAGE_ERROR|E_MESSAGE_INFO etc), data is array of messages of that type (key = timestamp)
 */
function doMaint($opts, $pmPrefs)
{
	if (!count($opts))
	{
		return array(E_MESSAGE_ERROR => array(ADLAN_PM_66));
	}

	$results = array(E_MESSAGE_INFO => array(ADLAN_PM_67));		// 'Maintenance started' - primarily for a log entry to mark start time
	$logResults = array();
	$e107 = e107::getInstance();
	$e107->admin_log->add('PM_ADM_04', implode(', ',array_keys($opts)));
	$pmHandler = new private_message($pmPrefs);
	$db2 = new db();							// Will usually need a second DB object to avoid over load
	$start = 0;						// Use to ensure we get different log times


	if (isset($opts['sent']))		// Want pm_from = deleted user and pm_read_del = 1
	{
		$cnt = 0;
		if ($res = $db2->gen("SELECT pm.pm_id FROM `#private_msg` AS pm LEFT JOIN `#user` AS u ON pm.`pm_from` = `#user`.`user_id`
					WHERE (pm.`pm_read_del = 1) AND `#user`.`user_id` IS NULL"))
		{
			while ($row = $db2->fetch())
			{
				if ($pmHandler->del($row['pm_id']) !== FALSE)
				{
					$cnt++;
				}
			}
		}
		$start = time();
		$results[E_MESSAGE_SUCCESS][$start] = str_replace('[x]', $cnt, ADLAN_PM_74);
	}
	if (isset($opts['rec']))		// Want pm_to = deleted user and pm_sent_del = 1
	{
		$cnt = 0;
		if ($res = $db2->gen("SELECT pm.pm_id FROM `#private_msg` AS pm LEFT JOIN `#user` AS u ON pm.`pm_to` = `#user`.`user_id`
					WHERE (pm.`pm_sent_del = 1) AND `#user`.`user_id` IS NULL"))
		{
			while ($row = $db2->fetch())
			{
				if ($pmHandler->del($row['pm_id']) !== FALSE)
				{
					$cnt++;
				}
			}
		}
		$start = max($start + 1, time());
		$results[E_MESSAGE_SUCCESS][$start] = str_replace('[x]', $cnt, ADLAN_PM_75);
	}


	if (isset($opts['blocked']))
	{
		if ($res = $db2->gen("DELETE `#private_msg_block` FROM `#private_msg_block` LEFT JOIN `#user` ON `#private_msg_block`.`pm_block_from` = `#user`.`user_id`
					WHERE `#user`.`user_id` IS NULL"))
		{
			$start = max($start + 1, time());
			$results[E_MESSAGE_ERROR][$start] = str_replace(array('[y]', '[z]'), array($db2->sql->getLastErrorNum, $db2->sql->getLastErrorText), ADLAN_PM_70);
		}
		else
		{
			$start = max($start + 1, time());
			$results[E_MESSAGE_SUCCESS][$start] = str_replace('[x]', $res, ADLAN_PM_69);
		}
		if ($res = $db2->gen("DELETE `#private_msg_block` FROM `#private_msg_block` LEFT JOIN `#user` ON `#private_msg_block`.`pm_block_to` = `#user`.`user_id`
					WHERE `#user`.`user_id` IS NULL"))
		{
			$start = max($start + 1, time());
			$results[E_MESSAGE_ERROR][$start] = str_replace(array('[y]', '[z]'), array($db2->sql->getLastErrorNum, $db2->sql->getLastErrorText), ADLAN_PM_70);
		}
		else
		{
			$start = max($start + 1, time());
			$results[E_MESSAGE_SUCCESS][$start] = str_replace('[x]', $res, ADLAN_PM_68);
		}
	}


	if (isset($opts['expired']))
	{
		$del_qry = array();
		$read_timeout = intval($pmPrefs['read_timeout']);
		$unread_timeout = intval($pmPrefs['unread_timeout']);
		if($read_timeout > 0)
		{
			$timeout = time()-($read_timeout * 86400);
			$del_qry[] = "(pm_sent < {$timeout} AND pm_read > 0)";
		}
		if($unread_timeout > 0)
		{
			$timeout = time()-($unread_timeout * 86400);
			$del_qry[] = "(pm_sent < {$timeout} AND pm_read = 0)";
		}
		if(count($del_qry) > 0)
		{
			$qry = implode(' OR ', $del_qry);
			$cnt = 0;
			if($db2->select('private_msg', 'pm_id', $qry))
			{
				while ($row = $db2->fetch())
				{
					if ($pmHandler->del($row['pm_id']) !== FALSE)
					{
						$cnt++;
					}
				}
			}
			$start = max($start + 1, time());
			$results[E_MESSAGE_SUCCESS][$start] = str_replace('[x]', $cnt, ADLAN_PM_73);
		}
		else
		{
			$start = max($start + 1, time());
			$results[E_MESSAGE_ERROR][$start] = ADLAN_PM_72;
		}
	}


	if (isset($opts['attach']))
	{	// Check for orphaned and missing attachments
		require_once(e_HANDLER.'file_class.php');
		$fl = new e_file();
		$missing = array();
		$orphans = array();
		$fileArray = $fl->get_files(e_PLUGIN.'pm/attachments');
		if ($db2->select('private_msg', 'pm_id, pm_attachments', "pm_attachments != ''"))
		{
			while ($row = $db2->fetch())
			{
				$attachList = explode(chr(0), $row['pm_attachments']);
				foreach ($attachList as $a)
				{
					$found = FALSE;
					foreach ($fileArray as $k => $fd)
					{
						if ($fd['fname'] == $a)
						{
							$found = TRUE;
							unset($fileArray[$k]);
							break;
						}
					}
					if (!$found)
					{
						$missing[] = $row['pm_id'].':'.$a;
					}
				}
			}
		}
		// Any files left in $fileArray now are unused
		if (count($fileArray))
		{
			foreach ($fileArray as $k => $fd)
			{
				unlink($fd['path'].$fd['fname']);
				$orphans[] = $fd['fname'];
			}
		}
		$attachMessage = str_replace(array('[x]', '[y]'), array(count($orphans), count($missing)), ADLAN_PM_79);
		if (TRUE)
		{	// Mostly for testing - probably disable this
			if (count($orphans))
			{
				$attachMessage .= '[!br!]Orphans:[!br!]'.implode('[!br!]', $orphans);
			}
			if (count($missing))
			{
				$attachMessage .= '[!br!]Missing:[!br!]'.implode('[!br!]', $missing);
			}
		}
		$start = max($start + 1, time());
		$results[E_MESSAGE_SUCCESS][$start] = $attachMessage;
	}

	e107::getLog()->addArray(makeLogEntry($results))->save('PM_ADM_03');

	foreach ($results as $k => $r)
	{
		foreach ($r as $sk => $s)
		{
			$results[$k][$sk] = str_replace('[!br!]','<br />',$s);
		}
	}
	return $results;
}




function pm_conf_adminmenu() 
{
	global $action;
	
	if ($action == '') { $action = 'main'; }

	$var['main']['text'] = ADLAN_PM_54;
	$var['main']['link'] = e_SELF;

	$var['limits']['text'] = ADLAN_PM_55;
	$var['limits']['link'] = e_SELF.'?limits';

	$var['maint']['text'] = ADLAN_PM_59;
	$var['maint']['link'] = e_SELF.'?maint';

	show_admin_menu(ADLAN_PM_12, $action, $var);
}


