$colno) {
$headings[$field] = $amr_nicenames[$field];
}
array_unshift( $lines, $headings);
foreach ($lines as $k => $line) {
if (!empty($line['index'] )) unset ($line['index']);
if (!isset($headings['ID'])) unset ($line['ID']);
$csvlines[]['csvcontent'] = amr_cells_to_csv ($line);
}
return $csvlines;
}
function amr_cells_to_csv ($line) { // convert a line of cells to csv
foreach ($line as $jj => $kk) {
if (empty($kk))
$line[$jj] = '""'; /* ***there is no value */
//$line[$jj] = ''; /* there is no value */
else {
$line[$jj] = '"'.str_replace('"','""',$kk).'"';
// for any csv a doublequote must be represented by two double quotes, or backslashed - BUT only want for csv, and some systems can backslash?
// when cacheing rewritten not to be so csv oriented, move this to the csv generation
//$line[$jj] = '"'.$kk.'"'; //- gets addslashed later, BUT not adding slashes to ' doc "dutch" tor ' - why not ?
}
}
$csv = implode (',', $line);
return $csv;
}
function amr_is_tofile ($ulist) {
global $amain;
if (empty($amain['public'][$ulist])) { // if it is not public - no file
//check_admin_referer('amr-meta');
$tofile = false;
}
else
$tofile = true;
return $tofile;
}
function amr_meta_handle_export_request () {
global $amain;
//allow in front end if user is allowed
//check_admin_referer('amr-meta');
$ulist = (int) $_REQUEST['csv'];
$tofile = amr_is_tofile($ulist);
$capability = apply_filters('amr-users-export-csv', 'list_users', $ulist);
if (is_admin ()) {
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();
}
else { //we are going to have all the overhead of a webpage like this - prhaps one should treat more like a feed, and just issue the data ?
$html = ausers_form_start();
$html .= amr_generate_csv($ulist, true, false,'csv','"',',',chr(13).chr(10), $tofile );
//$html .= amr_csv_form('csv', 'csv');
$html .= ausers_form_end();
echo $html;
}
return;
}
function amr_meta_handle_csv ($csv, $suffix='csv') {
// check if there is a csv request on this page BEFORE we do anything else ?
if (( isset ($_POST['csv']) ) and (isset($_POST['reqcsv']))) {
/* since data passed by the form, a security check here is unnecessary, since it will just create headers for whatever is passed .*/
if ((isset ($_POST['suffix'])) and ($_POST['suffix'] == 'txt'))
$suffix = 'txt';
else
$suffix = 'csv';
amr_to_csv (htmlspecialchars_decode($_POST['csv']),$suffix);
/* amr_to_csv (html_entity_decode($_POST['csv'])); */
}
}
function amr_to_csv ($csv, $suffix) {
/* create a csv file for download */
if (!isset($suffix)) $suffix = 'csv';
$file = 'userlist-'.date('Ymd_Hi').'.'.$suffix;
if (amr_is_network_admin()) $file = 'network_'.$file;
header("Content-Description: File Transfer");
header("Content-type: application/octet-stream");
header("Content-Disposition: attachment; filename=$file");
header("Pragma: no-cache");
header("Expires: 0");
echo $csv;
exit(0); /* Terminate the current script sucessfully */
}
function amr_undo_db_slashes (&$line) {
//wp adds to content when inserting into db
//somehow when extracting for csv the backslashes are not being dealt with
// is okay when listing on front end
$line['csvcontent'] = str_replace('\"','"',$line['csvcontent']);
}
function amr_remove_ID_from_front (&$line) { //its a csv line. Find first comma and strip till after comma
$line['csvcontent'] = substr($line['csvcontent'], strpos($line['csvcontent'],',')+1);
}
function amr_remove_index_from_back (&$line) { //its a csv line. strip from last comma to end
$line['csvcontent'] = substr($line['csvcontent'], 0, strrpos($line['csvcontent'],','));
}
function amr_get_csv_lines($ulist) {
/* get the whole cached file - write to file? but security / privacy ? */
/* how big */
global $aopt;
$c = new adb_cache();
$rptid = $c->reportid($ulist);
//$total = $c->get_cache_totallines ($rptid ); // nlr should rather pass 0 to get all
$lines = $c->get_cache_report_lines($rptid,0,0);
if (empty($lines)) return false; // 20140722 no headings lines at moment either
$headinglines = $c->get_column_headings($rptid);
$lines = apply_filters ('amr_users_csv_before_export', $lines, $headinglines);
// if we have navigation, remove the index from the saved cache
// if heading 0 has ;index at back
if (substr($headinglines[0]['csvcontent'],-5) == 'index') {
array_walk($lines,'amr_remove_index_from_back');
}
array_unshift( $lines, $headinglines[1]);
array_walk($lines,'amr_remove_ID_from_front'); // REMOVE technical ID
//$lines = $c->get_cache_report_lines($rptid,0,$total);
/* we want the heading line (line1), but not the internal nameslines (line 0) ,
plus all the data lines, so need total + 1 */
return ($lines);
}
function amr_lines_to_csv($lines, // these lines have 'csvcontent'
$ulist, // receive lines and output to csv
$strip_endings, // allows filter?
$strip_html = false,
$suffix,
$wrapper,
$delimiter,
$nextrow,
$tofile=false) {
global $aopt;
if (isset($lines) and is_array($lines))
$t = count($lines);
else
$t = 0;
$csv = '';
if ($t > 0) {
array_walk($lines,'amr_undo_db_slashes');
//for subset csv filter, we won'thave extra ID, but for full file we do
if ($strip_endings) {
foreach ($lines as $k => $line) {
$csv .= apply_filters( 'amr_users_csv_line', $line['csvcontent'] ).$nextrow;
}
}
else {
foreach ($lines as $k => $line)
$csv .= $line['csvcontent'].$nextrow;
}
$csv = str_replace ('","', $wrapper.$delimiter.$wrapper, $csv);
/* we already have in std csv - allow for other formats */
$csv = str_replace ($nextrow.'"', $nextrow.$wrapper, $csv);
$csv = str_replace ('"'.$nextrow, $wrapper.$nextrow, $csv);
if ($csv[0] == '"') $csv[0] = $wrapper;
if ($tofile) {
$csvfile = amr_users_to_csv($ulist, $csv, $suffix);
$csvurl = amr_users_get_csv_link($ulist,$suffix);
if ($suffix == 'txt')
$html = ' '.__('Public user list txt file: ','amr-users' ).' '.$csvurl;
else
$html = ' '.__('Public user list csv file: ','amr-users' ).' '.$csvurl;
}
else {
$html = amr_csv_form($csv, $suffix);
}
}
else { // 20140722 added empty file check
$csv = ''; //20140722 empty so previous file will be deleted
$csvurl = amr_users_get_csv_link($ulist,$suffix);
$html = ' '.__('No lines found.','amr-users');
}
return $html;
}
function amr_generate_csv($ulist,
$strip_endings, // allows filter?
$strip_html = false,
$suffix,
$wrapper,
$delimiter,
$nextrow,
$tofile=false) {
$lines = amr_get_csv_lines($ulist);
// could break it here into a get line part and a generate csv part so could call for filtered csv
$html = amr_lines_to_csv($lines, $ulist,
$strip_endings, // allows filter?
$strip_html,
$suffix,
$wrapper,
$delimiter,
$nextrow,
$tofile);
return($html);
}
function amr_csv_form($csv, $suffix) {
/* accept a long csv string and output a form with it in the data - this is to keep private - avoid the file privacy issue */
if ($suffix=='txt')
$text = __('Export CSV as .txt','amr-users'); // for excel users
else
$text = __('Export to CSV','amr-users');
return (
''
.''
. '' //20170907
);
}
function amr_users_get_csv_link($ulist,$suffix) { // * Return the full path to the file
global $amain;
$text = (empty ($amain['csv_text'] ) ? '' : $amain['csv_text']);
$csvfile = amr_users_setup_csv_filename($ulist, $suffix);
$url = amr_users_get_csv_url($csvfile);
if ($suffix == 'txt') {
$title = __('Txt Export','amr-users');
}
else {
$title = __('Csv Export','amr-users');
}
if (file_exists($csvfile)) return (
PHP_EOL.'
'.PHP_EOL
) ;
}
function amr_users_to_csv($ulist, $text, $suffix) { // get the file name and write the csv text
$csvfile = amr_users_setup_csv_filename($ulist, $suffix);
@unlink($csvfile); // delete old csv file;
$success = file_put_contents($csvfile, $text.chr(13), LOCK_EX);
if ($success)
return ($csvfile );
else
return (false);
}
function amr_users_get_csv_path() { // * Attempt to create the log directory if it doesn't exist.
$upload_dir = wp_upload_dir();
$csv_path = $upload_dir['basedir']. '/users_csv';
if (!file_exists($csv_path)) { /* if there is no folder */
if (wp_mkdir_p($csv_path, 0705)) {
printf(' '
.__('Your csv directory %s has been created','amr-users'),''.$csv_path.'');
file_put_contents($csv_path.'/index.php', 'Silence is golden', LOCK_EX);
return $csv_path;
}
else {
echo ( ' '.sprintf(__('Error creating csv directory %s. Please check permissions','amr-users'),$csv_path));
return $upload_dir;
}
}
return $csv_path;
}
function amr_users_get_csv_url($csvfile) {
$upload = wp_upload_dir();
$upload_url = $upload['baseurl'];
$upload_dir = $upload['basedir'];
$csvurl = str_replace($upload_dir,$upload_url, $csvfile); // get the part after theupload dir
return $csvurl;
}
function amr_users_setup_csv_filename($ulist, $suffix) { // * Return the full path to the file
// to avoid too much overwriting, only logged in users get their own filter file for public lists
$type = 'user_list_';
if (is_user_logged_in()) {
if (!empty($_REQUEST['csvsubset'])) { // check fo
$current_user = wp_get_current_user();
$name = $current_user->user_login;
$type='user_list_'.$name.'_filter_';
}
}
$csvfile = amr_users_get_csv_path() .'/'
.$type.$ulist
.'.'.$suffix;
//if (is_network_admin()) $csvfile = 'network_'.$csvfile;
return $csvfile ;
}
function amr_users_clear_all_public_csv ($except) { // array of user list numbers
$csv_path = amr_users_get_csv_path();
//$csv_files = glob($csv_path.'/user_list_*.csv'); 20140722
//$txt_files = glob($csv_path.'/user_list_*.txt');
foreach ($except as $exception=> $public) {
if (!$public ) { // then there should be no files
$file = $csv_path.'/user_list_'.$exception.'.csv';
if (file_exists($file)) unlink ($file);
$file = $csv_path.'/user_list_'.$exception.'.txt';
if (file_exists($file)) unlink ($file);
}
}
}