function amr_meta_handle_export_request()
{
global $amain;
check_admin_referer('amr-meta');
$ulist = (int) $_REQUEST['csv'];
$tofile = amr_is_tofile($ulist);
$capability = apply_filters('amr-users-export-csv', 'list_users', $ulist);
amr_meta_main_admin_header(__('Export a user list', 'amr-users'), $capability);
// pass capability
amr_meta_admin_headings($plugin_page = '');
// does the nonce check and formstartetc
if (isset($_REQUEST['csvfiltered'])) {
echo amr_generate_csv($ulist, true, true, 'txt', "'", chr(9), chr(13) . chr(10), $tofile);
} else {
echo amr_generate_csv($ulist, true, false, 'csv', '"', ',', chr(13) . chr(10), $tofile);
}
echo ausers_form_end();
return;
}
function alist_one($type = 'user', $ulist = 1, $options)
{
//options can be headings, csv, show_search, show_perpage
/* Get the fields to use for the chosen list type */
global $aopt, $amain, $amrusers_fieldfiltering, $amr_current_list, $amr_search_result_count;
global $amr_refreshed_heading, $totalitems;
if (empty($aopt['list'][$ulist])) {
printf(__('No such list: %s', 'amr-users'), $ulist);
$ulist = amr_debug_no_such_list();
// issue debug messages and use first list found
} else {
$l = $aopt['list'][$ulist];
}
/* *get the config */
do_action('amr-add-criteria-to-list', $ulist);
// allows one to force criteria into the request field for example (eg: show only logged in user)
$transient_suffix = amr_check_use_transient($ulist, $options);
if ($transient_suffix) {
// no filters, no search, no sort, nothing special happening
//if (WP_DEBUG) echo '<br />using transient: '.$transient_suffix.'<br />';
$html = get_transient('amr-users-html-for-list-' . $transient_suffix);
if (!empty($html)) {
if (current_user_can('administrator')) {
echo '<br /><a href="' . add_query_arg('refresh', '1') . '" title="' . __('Note to logged in admin only: Now using temporary saved html (transient) for frontend. Click to refresh.', 'amr-users') . '">!</a>';
}
return $html;
}
}
$caption = '';
$sortedbynow = '';
if (empty($amain['list_rows_per_page'][$ulist])) {
$amain['list_rows_per_page'][$ulist] = $amain['rows_per_page'];
}
$rowsperpage = amr_rows_per_page($amain['list_rows_per_page'][$ulist]);
// will check request
// use $options as our 'request' input so shortcode parameters will work.
// allow _REQUEST to override $options
/*$request_override_allowed = array(
'filter',
'fieldvaluefilter',
'fieldnamefilter',
'sort'); */
// figure out what we are doing - searching, filtering -------------------------------------------------------
$search = '';
if (isset($_REQUEST['clear_filtering'])) {
// we do not need these then
unset($_REQUEST['fieldnamefilter']);
unset($_REQUEST['fieldvaluefilter']);
unset($_REQUEST['filter']);
unset($_REQUEST['su']);
//do we need to unset the individual cols? maybe not
} else {
if (!empty($_REQUEST['su'])) {
//if (WP_DEBUG) echo '<br />We got search too:'.$_REQUEST['su'];
$search = strip_tags($_REQUEST['su']);
}
foreach ($_REQUEST as $param => $value) {
// we do not know the column names, so just transfer all?
// some might be an array
//skip some obvious ones
if (empty($value)) {
continue;
}
if (in_array($param, array('page', 'action', 'action2', 'amr-meta', '_wp_http_referer', 'dobulk'))) {
continue;
}
if (is_array($value)) {
foreach ($value as $i => $val) {
$options[$param][$i] = htmlspecialchars_decode(sanitize_text_field($val));
}
} else {
$options[$param] = htmlspecialchars_decode(sanitize_text_field($value));
}
}
}
$amrusers_fieldfiltering = false;
if (!empty($options['filter'])) {
//if (WP_DEBUG) {echo '<h1>Filtering</h1>';}
foreach (array('fieldnamefilter', 'fieldvaluefilter') as $i => $filtertype) {
if (isset($options[$filtertype])) {
// if (WP_DEBUG) {echo '<br />doing: '.$filtertype; var_dump($options);}
foreach ($options[$filtertype] as $i => $col) {
if (empty($options[$col])) {
//ie showing all
unset($options[$filtertype][$i]);
unset($options[$col]);
} else {
$amrusers_fieldfiltering = true;
}
// set as we are maybe doing realtime filtering flag
}
}
}
}
$c = new adb_cache();
$rptid = $c->reportid($ulist, $type);
if ($amrusers_fieldfiltering) {
$lines = amr_build_user_data_maybe_cache($ulist);
// since we are filtering, we will run realtime, but not save, else we would lose the normal report
if (empty($lines)) {
return;
}
$totalitems = count($lines);
//if (WP_DEBUG) echo '<br /> field filtering & $totalitems='.$totalitems;
} else {
if (!$c->cache_exists($rptid) or isset($options['refresh'])) {
//if (amr_debug()) _e('If debug only: Either refresh requested OR no cache exists. A rebuild will be initiated .... ','amr-users');
$success = amr_try_build_cache_now($c, $ulist, $rptid);
//$lines = amr_build_user_data_maybe_cache($ulist);
$totalitems = $c->get_cache_totallines($rptid);
//now need the lines, but first, paging check will tell us how many
$amrusers_fieldfiltering = false;
// already done if it must be
} else {
$totalitems = $c->get_cache_totallines($rptid);
}
}
//---------- setup paging variables
if ($totalitems < 1) {
_e('No lines found.', 'amr-users');
echo amr_users_get_refresh_link($ulist);
return;
}
if ($rowsperpage > $totalitems) {
$rowsperpage = $totalitems;
}
$lastpage = ceil($totalitems / $rowsperpage);
if (!empty($_REQUEST['listpage'])) {
// if we requested a page MUST use that
$page = (int) $_REQUEST['listpage'];
} else {
// is a random page stipulated ?
if (isset($options['show_randompage'])) {
// allows a random page
$page = rand(1, $lastpage);
} else {
// else.....start at the very beginning, a very good place to start...
$page = 1;
}
}
if ($page > $lastpage) {
$page = $lastpage;
}
if ($page == 1) {
$start = 0;
} else {
$start = ($page - 1) * $rowsperpage;
}
$shuffle = false;
if (!empty($options['shuffle'])) {
$shuffle = true;
}
$filtercol = array();
//------------------------------------------------------------------------------------------ get the data
if (!$amrusers_fieldfiltering) {
// because already have lines if were doing field level filtering
$headinglines = $c->get_column_headings($rptid);
/* get the internal heading names for internal plugin use only */
/* get the user defined heading names */
if (!defined('str_getcsv')) {
$icols = amr_str_getcsv($headinglines[0]['csvcontent'], ',', '"', '\\');
} else {
$icols = str_getcsv($headinglines[0]['csvcontent'], ',', '"', '\\');
}
$icols = array_unique($icols);
//since may end up with two indices, eg if filtering and grouping by same value
if (!defined('str_getcsv')) {
$cols = amr_str_getcsv($headinglines[1]['csvcontent'], '","', '"', '\\');
} else {
$cols = str_getcsv($headinglines[1]['csvcontent'], ',', '"', '\\');
}
//IF (WP_DEBUG) {echo '<br />What options:'; var_dump($options);}
$fetch_amount = $rowsperpage;
// default
if (isset($options['filter']) or !empty($options['sort']) or !empty($_REQUEST['su']) or isset($options['csvsubset'])) {
//20140718 - add csvsubset
$fetch_amount = 0;
}
//fetch all
// if at initial display not searching or filtering
if (isset($options['start_empty']) and empty($options['su']) and empty($options['filter']) and empty($options['sort'])) {
$lines = array();
$totalitems = 0;
} else {
$lines = amr_get_lines_to_array($c, $rptid, $start, $fetch_amount, $icols, $shuffle);
//IF (WP_DEBUG) ECHO '<br />fetch amount = '.$fetch_amount.' lines count ='.count($lines);
}
} else {
// we are field filtering
unset($lines[0]);
// the tech lines and the headings line
unset($lines[1]);
$totalitems = count($lines);
// must be here, only reset for field filtering
$s = $l['selected'];
asort($s);
/* get the selected fields in the display order requested */
$cols = amr_build_col_headings($s);
$icols = amr_build_cols($s);
foreach ($lines as $i => $j) {
$lines[$i] = amr_convert_indices($j, $icols);
}
}
//------------------------------------------------------------------------------------ check for search
/* then we want to sort, so have to fetch ALL the lines first and THEN sort. Keep page number in case working through the list ! */
// if searching also want all the lines first so can search within and do pagination correctly
/*if (!empty($search)) { // only if we are searching
foreach ($lines as $i=>$l) {
foreach ($l as $j=>$field) {
if (!in_array($search, $field)) {
if (WP_DEBUG) {echo '<br />Not a search match for '.$search.', reject'; var_dump($l);}
unset($lines[$i]);
}
}
}
}*/
//if (amr_debug()) echo'<br />after search with '.$search. ' '.count($lines);
//------------------------------------------------------------------------------------------ display time filter check
if (!empty($lines) and (isset($options['filter']) or isset($options['csvsubset']))) {
// then we are filtering
//if (amr_debug()) {
//var_dump($options['filter']);
//echo '<br />Check for filtering at display time <br />'; var_dump($icols);
//}
foreach ($icols as $cindex => $col) {
if (!empty($options[$col])) {
if (!(isset($options['fieldnamefilter']) and in_array($col, $options['fieldnamefilter'])) and !(isset($options['fieldvaluefilter']) and in_array($col, $options['fieldvaluefilter']))) {
$filtercol[$col] = stripslashes($options[$col]);
// 20140419 take out esc_attr
// 2014 12 08 add stripslahes to force apostrophe s to match data
}
}
}
if (!empty($options['index'])) {
$filtercol['index'] = strip_tags($options['index']);
}
if (false and !$amrusers_fieldfiltering and empty($filtercol) and current_user_can('manage_options')) {
//take out
//NO LONGER REQUIRED, keep for debug only helpful maybe message nlr or perhaps only if by url? But could be trying own html? and be confused
echo '<p>';
_e('This Message shows to admin only!', 'amr-users');
echo '<br />';
_e('Filter requested.', 'amr-users');
_e('Maybe you chose "show all", which is OKAY... or are attempting some own html or link ? .', 'amr-users');
echo '<br />';
_e('No valid filter column given.', 'amr-users');
echo '<br />';
_e('Column filter Usage is :', 'amr-users');
echo '<br /><strong>';
echo '?filter=hide&column_name=value<br />';
echo '?filter=show&column_name=value</br> ';
echo '?filter=1&column_name=value';
echo '</strong></br> ';
_e('Note: Hide only works if the column is currently being displayed.', 'amr-users');
_e('For this list, expecting column_name to be one of ', 'amr-users');
echo '<br />' . implode('<br />', $icols) . '<br />';
echo '</p>';
}
if (!empty($filtercol)) {
// for each of the filter columns that are not field filters
foreach ($filtercol as $fcol => $value) {
//if (amr_debug()) {echo '<hr>Apply filters for field "'.$fcol. '" against... '; var_dump($value); } //***
// if (WP_DEBUG) echo '<br />Lines at start filtercol '.count($lines);
foreach ($lines as $i => $line) {
//if (WP_DEBUG) {echo '<br>line='; var_dump($line);}
if ($value === '*') {
if (empty($line[$fcol])) {
unset($lines[$i]);
} else {
}
} elseif ($value === '-') {
if (!empty($line[$fcol])) {
unset($lines[$i]);
} else {
}
} elseif (empty($line[$fcol])) {
unset($lines[$i]);
} else {
if ($fcol == 'ID') {
// id can have filtering - allows link to profile page
if (!($line[$fcol] == $value)) {
/// amr ??
unset($lines[$i]);
}
} else {
//if (WP_DEBUG) {echo '<br />Filter: ';
// var_dump($line[$fcol]);var_dump($value);}
if (!amr_does_filter_match($value, $line[$fcol])) {
// 20140305 - GET RID OF Fuzzy matching, testted both comma separated and comma space separated - working!!
//$instring = strpos($line[$fcol],$value );
// fuzzy filtering - hmm why - maybe not???
// *** definitely NOT - number values overmatch then
// eg: filtering 4, then 41, 24 matches
// BUT can we just explode from commas?
// how do we know if we should explode or not?
// will be better when we are using query mode down the track
// is fuzzy filter to avoid situation where value may have spaces before/after ???
// used strstr before, but strpos faster
//if ($instring === false) { // note strpos may return 0 if in front of string
unset($lines[$i]);
}
}
}
//else if (!($line[$fcol] == $value)) { strisstr will catch these ?
//}
//if (WP_DEBUG) echo '<br />Lines mid filtercol '.count($lines);
if (!empty($options['filter']) and $options['filter'] == 'hide') {
unset($lines[$i][$fcol]);
}
}
// if hiding, delete that column
if (!empty($options['filter']) and $options['filter'] == 'hide') {
foreach ($icols as $cindex => $col) {
if ($fcol == $col) {
unset($icols[$cindex]);
unset($cols[$cindex]);
}
}
}
// end delete col
//if (WP_DEBUG) echo '<br />Lines left '.count($lines);
}
// since we filtered, if also trying to search then do search here.
// cannot do at initial query like plain search because pagination gets messed
//-----------------------------------------------------------------------------
$amr_search_result_count = count($lines);
// of filtering
$totalitems = $amr_search_result_count;
// slice the right section of the returned values based on rowsperpage and currentpage
// update the paging variables
if ($amr_search_result_count > 0 and $rowsperpage > $amr_search_result_count) {
$rowsperpage = $amr_search_result_count;
}
$lastpage = ceil($amr_search_result_count / $rowsperpage);
if ($page > $lastpage) {
$page = $lastpage;
}
if ($page == 1) {
$start = 0;
} else {
$start = ($page - 1) * $rowsperpage;
}
//if (WP_DEBUG) echo '<br />count lines = '.$amr_search_result_count. ' start='.$start. ' rowspp='. $rowsperpage;
}
}
//end if
//------------------------------------------------------------------------------ check for sort
if (!empty($options['sort'])) {
//if (WP_DEBUG) {echo '<br/> before sort start:'.$start.' rows pp:'.$rowsperpage.' '.count($lines);}
if ($lines) {
$linesunsorted = amr_check_for_sort_request($lines);
$linesunsorted = array_values($linesunsorted);
/* reindex as our indexing is stuffed and splice will not work properly */
//if (!empty($search))
$totalitems = count($linesunsorted);
//save total here before splice
$lines = $linesunsorted;
//$lines = array_splice($linesunsorted, $start, $rowsperpage, true );
unset($linesunsorted);
// free up memory?
//if (WP_DEBUG) {echo '<br/> after sort :'.$rowsperpage.' '.count($lines);}
/* now fix the cache headings*/
$sortedbynow = '';
if (!empty($options['sort'])) {
foreach ($icols as $i => $t) {
if ($t == $options['sort']) {
$sortedbynow = strip_tags($cols[$i]);
}
}
$sortedbynow = '<li><em>' . __('Sorted by:', 'amr-users') . '</em>' . $sortedbynow . '</li><li class="sort">';
}
}
}
// do csv filter here ?
if (!empty($_REQUEST['csvsubset'])) {
$tofile = amr_is_tofile($ulist);
$csvlines = amr_csvlines_to_csvbatch($lines);
$html = amr_lines_to_csv($csvlines, $ulist, true, false, 'csv', '"', ',', chr(13) . chr(10), $tofile);
//echo $html;
return $html;
} else {
// if clean request, we may have the right number lines already - do not reslice
if ($rowsperpage < count($lines)) {
$lines = array_slice($lines, $start, $rowsperpage, true);
}
}
//---------------------------------------------------------------------------------------------finished filtering and sorting
$html = amr_display_final_list($lines, $icols, $cols, $page, $rowsperpage, $totalitems, $caption, $search, $ulist, $c, $filtercol, $sortedbynow, $options);
if ($transient_suffix) {
// ie no filters, no search, no sort, nothing special happening
$expiration = empty($amain['transient_expiration']) ? 60 : $amain['transient_expiration'];
//allow setting later
set_transient('amr-users-html-for-list-' . $transient_suffix, $html, $expiration);
//track_progress('Transient set for html for list '.$transient_suffix);
}
return $html;
}