<?php
/*
	FusionPBX
	Version: MPL 1.1

	The contents of this file are subject to the Mozilla Public License Version
	1.1 (the "License"); you may not use this file except in compliance with
	the License. You may obtain a copy of the License at
	http://www.mozilla.org/MPL/

	Software distributed under the License is distributed on an "AS IS" basis,
	WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
	for the specific language governing rights and limitations under the
	License.

	The Original Code is FusionPBX

	The Initial Developer of the Original Code is
	Mark J Crane <markjcrane@fusionpbx.com>
	Portions created by the Initial Developer are Copyright (C) 2008-2023
	the Initial Developer. All Rights Reserved.

	Contributor(s):
	Mark J Crane <markjcrane@fusionpbx.com>
*/

//includes files
	require_once dirname(__DIR__, 2) . "/resources/require.php";
	require_once "resources/check_auth.php";

//check permissions
	if (permission_exists('xml_cdr_export')) {
		//access granted
	}
	else {
		echo "access denied";
		exit;
	}

//add multi-lingual support
	$language = new text;
	$text = $language->get();

//additional includes
	$rows_per_page = ($_SESSION['domain']['paging']['numeric'] != '') ? $_SESSION['domain']['paging']['numeric'] : 50;
	$archive_request = isset($_POST['archive_request']) && $_POST['archive_request'] == 'true' ? true : false;
	require_once "xml_cdr_inc.php";

//get the format
	$export_format = $_REQUEST['export_format'];

//export the csv
	if (permission_exists('xml_cdr_export_csv') && $export_format == 'csv') {

		//define file name
			if ($_REQUEST['show'] == 'all' && permission_exists('xml_cdr_all')) {
				$csv_filename = "cdr_".date("Ymd_His").".csv";
			}
			else {
				$csv_filename = "cdr_".$_SESSION['domain_name']."_".date("Ymd_His").".csv";
			}

		//set the http headers
			header('Content-type: application/octet-binary');
			header('Content-Disposition: attachment; filename='.$csv_filename);

		//set the csv headers
			$z = 0;
			foreach ($result[0] as $key => $val) {
				if ($key != "xml" && $key != "json") {
					$echo = true;
					switch ($key) {
						case 'direction': if (!permission_exists('xml_cdr_direction')) { $echo = false; } break;
						case 'extension': if (!permission_exists('xml_cdr_extension')) { $echo = false; } break;
						case 'caller_id_name': if (!permission_exists('xml_cdr_caller_id_name')) { $echo = false; } break;
						case 'caller_id_number': if (!permission_exists('xml_cdr_caller_id_number')) { $echo = false; } break;
						case 'caller_destination': if (!permission_exists('xml_cdr_caller_destination')) { $echo = false; } break;
						case 'destination_number': if (!permission_exists('xml_cdr_destination')) { $echo = false; } break;
						case 'answer_stamp':
						case 'start_stamp':
						case 'end_stamp':
						case 'start_date_formatted':
						case 'start_time_formatted':
						case 'start_epoch': if (!permission_exists('xml_cdr_start')) { $echo = false; } break;
						case 'tta': if (!permission_exists('xml_cdr_tta')) { $echo = false; } break;
						case 'duration':
						case 'billsec':
						case 'billmsec': if (!permission_exists('xml_cdr_duration')) { $echo = false; } break;
						case 'pdd_ms': if (!permission_exists('xml_cdr_pdd')) { $echo = false; } break;
						case 'rtp_audio_in_mos': if (!permission_exists('xml_cdr_mos')) { $echo = false; } break;
						case 'hangup_cause': if (!permission_exists('xml_cdr_hangup_cause')) { $echo = false; } break;
						case 'record_path':
						case 'record_name': if (!permission_exists('xml_cdr_recording')) { $echo = false; } break;
					}
					if ($echo) {
						echo ($z == 0 ? null : ',').'"'.$key.'"';
					}
				}
				$z++;
			}
			echo "\n";

		//show the csv data
			$x=0;
			while (true) {
				$z = 0;
				foreach ($result[0] as $key => $val) {
					if ($key != "xml" && $key != "json") {
						$echo = true;
						switch ($key) {
							case 'direction': if (!permission_exists('xml_cdr_direction')) { $echo = false; } break;
							case 'extension': if (!permission_exists('xml_cdr_extension')) { $echo = false; } break;
							case 'caller_id_name': if (!permission_exists('xml_cdr_caller_id_name')) { $echo = false; } break;
							case 'caller_id_number': if (!permission_exists('xml_cdr_caller_id_number')) { $echo = false; } break;
							case 'caller_destination': if (!permission_exists('xml_cdr_caller_destination')) { $echo = false; } break;
							case 'destination_number': if (!permission_exists('xml_cdr_destination')) { $echo = false; } break;
							case 'answer_stamp':
							case 'start_stamp':
							case 'end_stamp':
							case 'start_date_formatted':
							case 'start_time_formatted':
							case 'start_epoch': if (!permission_exists('xml_cdr_start')) { $echo = false; } break;
							case 'tta': if (!permission_exists('xml_cdr_tta')) { $echo = false; } break;
							case 'duration':
							case 'billsec':
							case 'billmsec': if (!permission_exists('xml_cdr_duration')) { $echo = false; } break;
							case 'pdd_ms': if (!permission_exists('xml_cdr_pdd')) { $echo = false; } break;
							case 'rtp_audio_in_mos': if (!permission_exists('xml_cdr_mos')) { $echo = false; } break;
							case 'hangup_cause': if (!permission_exists('xml_cdr_hangup_cause')) { $echo = false; } break;
							case 'record_path':
							case 'record_name': if (!permission_exists('xml_cdr_recording')) { $echo = false; } break;
						}
						if ($echo) {
							echo ($z == 0 ? null : ',').'"'.$result[$x][$key].'"';
						}
					}
					$z++;
				}
				echo "\n";
				++$x;
				if ($x > ($result_count - 1)) {
					break;
				}
			}
	}

//export as a PDF
	if (permission_exists('xml_cdr_export_pdf') && $export_format == 'pdf') {

		//load pdf libraries
		require_once "resources/tcpdf/tcpdf.php";
		require_once "resources/fpdi/fpdi.php";

		//determine page size
		switch ($_SESSION['fax']['page_size']['text']) {
			case 'a4':
				$page_width = 11.7; //in
				$page_height = 8.3; //in
				break;
			case 'legal':
				$page_width = 14; //in
				$page_height = 8.5; //in
				break;
			case 'letter':
			default	:
				$page_width = 11; //in
				$page_height = 8.5; //in
		}

		// initialize pdf
		$pdf = new FPDI('L', 'in');
		$pdf->SetAutoPageBreak(false);
		$pdf->setPrintHeader(false);
		$pdf->setPrintFooter(false);
		$pdf->SetMargins(0.5, 0.5, 0.5, true);

		//set default font
		$pdf->SetFont('helvetica', '', 7);
		//add new page
		$pdf->AddPage('L', array($page_width, $page_height));

		//initialize columns and colspan variables
		$columns = $colspan_line_totals_averages = 0;

		//write the table column headers
		$data_start = '<table cellpadding="0" cellspacing="0" border="0" width="100%">';
		$data_end = '</table>';

		$data_head = '<tr>';
		if (permission_exists('xml_cdr_direction')) {
			$data_head .= '<td width="6%"><b>'.$text['label-direction'].'</b></td>';
			$columns++;
		}
		if (permission_exists('xml_cdr_extension')) {
			$data_head .= '<td width="4%"><b>'.$text['label-ext'].'</b></td>';
			$columns++;
		}
		if (permission_exists('xml_cdr_caller_id_name')) {
			$data_head .= '<td width="12%"><b>'.$text['label-caller_id_name'].'</b></td>';
			$columns++;
		}
		if (permission_exists('xml_cdr_caller_id_number')) {
			$data_head .= '<td width="9%"><b>'.$text['label-caller_id_number'].'</b></td>';
			$columns++;
		}
		if (permission_exists('xml_cdr_caller_destination')) {
			$data_head .= '<td width="9%"><b>'.$text['label-caller_destination'].'</b></td>';
			$columns++;
		}
		if (permission_exists('xml_cdr_destination')) {
			$data_head .= '<td width="9%"><b>'.$text['label-destination'].'</b></td>';
			$columns++;
		}
		if (permission_exists('xml_cdr_account_code')) {
			$data_head .= '<td width="12%" nowrap="nowrap"><b>'.$text['label-accountcode'].'</b></td>';
			$columns++;
		}
		if (permission_exists('xml_cdr_start')) {
			$data_head .= '<td width="12%" nowrap="nowrap"><b>'.$text['label-start'].'</b></td>';
			$columns++;
		}
		$colspan_line_totals_averages = $columns - 1;
		if (permission_exists('xml_cdr_tta')) {
			$data_head .= '<td width="3%" align="right"><b>'.$text['label-tta'].'</b></td>';
			$columns++;
		}
		if (permission_exists('xml_cdr_duration')) {
			$data_head .= '<td width="6%" align="right"><b>'.$text['label-duration'].'</b></td>';
			$columns += 2;
			$data_head .= '<td width="7%" align="right"><b>'.$text['label-billsec'].'</b></td>';
		}
		if (permission_exists('xml_cdr_pdd')) {
			$data_head .= '<td width="5%" align="right"><b>'.$text['label-pdd'].'</b></td>';
			$columns++;
		}
		if (permission_exists('xml_cdr_mos')) {
			$data_head .= '<td width="5%" align="center"><b>'.$text['label-mos'].'</b></td>';
			$columns++;
		}
		if (!empty($_SESSION['cdr']['field']) && is_array($_SESSION['cdr']['field'])) {
			foreach ($_SESSION['cdr']['field'] as $field) {
				$array = explode(",", $field);
				$field_name = end($array);
				$field_label = ucwords(str_replace("_", " ", $field_name));
				$field_label = str_replace("Sip", "SIP", $field_label);
				if ($field_name != "destination_number") {
					$data_head .= '<td width="10%" align="left"><b>'.$field_label.'</b></td>';
				}
				$columns++;
			}
		}
		if (permission_exists('xml_cdr_hangup_cause')) {
			$data_head .= '<td width="10%"><b>'.$text['label-hangup_cause'].'</b></td>';
			$columns++;
		}
		$data_head .= '</tr>';
		if ($columns != 0) {
			$data_head .= '<tr><td colspan="'.$columns.'"><hr></td></tr>';
		}

		//initialize total variables
		$total['duration'] = 0;
		$total['billmsec'] = 0;
		$total['pdd_ms'] = 0;
		$total['rtp_audio_in_mos'] = 0;
		$total['tta'] = 0;

		//write the row cells
		$z = 0; // total counter
		$z_mos = 0; // total with mos counter
		$p = 0; // per page counter
		if (sizeof($result) > 0 && $columns != 0) {
			foreach ($result as $cdr_num => $fields) {
				$data_body[$p] = '<tr>';
				if (permission_exists('xml_cdr_direction')) {
					$data_body[$p] .= '<td>'.$text['label-'.$fields['direction']].'</td>';
				}
				if (permission_exists('xml_cdr_extension')) {
					$data_body[$p] .= '<td>'.$fields['extension'].'</td>';
				}
				if (permission_exists('xml_cdr_caller_id_name')) {
					$data_body[$p] .= '<td>'.$fields['caller_id_name'].'</td>';
				}
				if (permission_exists('xml_cdr_caller_id_number')) {
					$data_body[$p] .= '<td>'.$fields['caller_id_number'].'</td>';
				}
				if (permission_exists('xml_cdr_caller_destination')) {
					$data_body[$p] .= '<td>'.format_phone($fields['caller_destination']).'</td>';
				}
				if (permission_exists('xml_cdr_destination')) {
					$data_body[$p] .= '<td>'.format_phone($fields['destination_number']).'</td>';
				}
				if (permission_exists('xml_cdr_account_code')) {
					$data_body[$p] .= '<td>'.$fields['accountcode'].'</td>';
				}
				if (permission_exists('xml_cdr_start')) {
					$data_body[$p] .= '<td>'.$fields['start_stamp'].'</td>';
				}
				if (permission_exists('xml_cdr_tta')) {
					$total['tta'] += ($fields['tta'] > 0) ? $fields['tta'] : 0;
					$data_body[$p] .= '<td align="right">'.(($fields['tta'] >= 0) ? $fields['tta'].'s' : null).'</td>';
				}
				if (permission_exists('xml_cdr_duration')) {
					$seconds = ($fields['hangup_cause'] == "ORIGINATOR_CANCEL") ? $fields['duration'] : round(($fields['billmsec'] / 1000), 0, PHP_ROUND_HALF_UP);
					$total['duration'] += $seconds;
					$data_body[$p] .= '<td align="right">'.gmdate("G:i:s", $seconds).'</td>';
					$total['billmsec'] += $fields['billmsec'];
					$data_body[$p] .= '<td align="right">'.number_format(round($fields['billmsec'] / 1000, 2), 2).'s</td>';
				}
				if (permission_exists("xml_cdr_pdd")) {
					$total['pdd_ms'] += $fields['pdd_ms'];
					$data_body[$p] .= '<td align="right">'.number_format(round($fields['pdd_ms'] / 1000, 2), 2).'s</td>';
				}
				if (permission_exists('xml_cdr_mos')) {
					$total['rtp_audio_in_mos'] += $fields['rtp_audio_in_mos'];
					$data_body[$p] .= '<td align="center">'.($fields['rtp_audio_in_mos'] ?? '').'</td>';
					if (!empty($fields['rtp_audio_in_mos']) && is_numeric($fields['rtp_audio_in_mos'])) { $z_mos++; }
				}
				if (!empty($_SESSION['cdr']['field']) && is_array($_SESSION['cdr']['field'])) {
					foreach ($_SESSION['cdr']['field'] as $field) {
						$array = explode(",", $field);
						$field_name = end($array);
						$field_label = ucwords(str_replace("_", " ", $field_name));
						$field_label = str_replace("Sip", "SIP", $field_label);
						if ($field_name != "destination_number") {
							$data_body[$p] .= '<td align="right">';
							$data_body[$p] .= $fields[$field_name];
							$data_body[$p] .= '</td>';
						}
					}
				}

				if (permission_exists('xml_cdr_hangup_cause')) {
					$data_body[$p] .= '<td>'.ucwords(strtolower(str_replace("_", " ", $fields['hangup_cause']))).'</td>';
				}
				$data_body[$p] .= '</tr>';

				$z++;
				$p++;

				if ($p == 60) {
					//output data
					$data_body_chunk = $data_start.$data_head;
					foreach ($data_body as $data_body_row) {
						$data_body_chunk .= $data_body_row;
					}
					$data_body_chunk .= $data_end;
					$pdf->writeHTML($data_body_chunk, true, false, false, false, '');
					unset($data_body_chunk);
					unset($data_body);
					$p = 0;

					//add new page
					$pdf->AddPage('L', array($page_width, $page_height));
				}

			}

		}

		if ($columns != 0) {

			//write divider
			$data_footer = '<tr><td colspan="'.$columns.'"></td></tr>';

			//write totals
			$data_footer .= '<tr>';
			$data_footer .= '<td><b>'.$text['label-total'].'</b></td>';
			$data_footer .= '<td colspan="'.$colspan_line_totals_averages.'">'.$z.'</td>';
			if (permission_exists('xml_cdr_tta')) {
				$data_footer .= '<td align="right"><b>'.number_format(round($total['tta'], 1), 0).'s</b></td>';
			}
			if (permission_exists('xml_cdr_duration')) {
				$data_footer .= '<td align="right"><b>'.gmdate("G:i:s", $total['duration']).'</b></td>';
				$data_footer .= '<td align="right"><b>'.gmdate("G:i:s", round($total['billmsec'] / 1000, 0)).'</b></td>';
			}
			if (permission_exists("xml_cdr_pdd")) {
				$data_footer .= '<td align="right"><b>'.number_format(round(($total['pdd_ms'] / 1000), 2), 2).'s</b></td>';
			}
			if (permission_exists('xml_cdr_mos')) {
				$data_footer .= '<td></td>';
			}
			if (permission_exists('xml_cdr_hangup_cause')) {
				$data_footer .= '<td></td>';
			}
			$data_footer .= '</tr>';

			$data_footer .= '<tr><td colspan="'.$columns.'"><hr></td></tr>';

			//write averages
			$data_footer .= '<tr>';
			$data_footer .= '<td><b>'.$text['label-average'].'</b></td>';
			$data_footer .= '<td colspan="'.$colspan_line_totals_averages.'"></td>';
			if (permission_exists('xml_cdr_tta')) {
				$data_footer .= '<td align="right"><b>'.round(($total['tta'] / $z), 1).'</b></td>';
			}
			if (permission_exists('xml_cdr_duration')) {
				$data_footer .= '<td align="right"><b>'.gmdate("G:i:s", floor($total['duration'] / $z)).'</b></td>';
				$data_footer .= '<td align="right"><b>'.gmdate("G:i:s", round($total['billmsec'] / $z / 1000, 0)).'</b></td>';
			}
			if (permission_exists("xml_cdr_pdd")) {
				$data_footer .= '<td align="right"><b>'.number_format(round(($total['pdd_ms'] / $z / 1000), 2), 2).'s</b></td>';
			}
			if (permission_exists('xml_cdr_mos')) {
				$data_footer .= '<td align="center"><b>'.round(($total['rtp_audio_in_mos'] / $z_mos), 2).'</b></td>';
			}
			if (permission_exists('xml_cdr_hangup_cause')) {
				$data_footer .= '<td></td>';
			}
			$data_footer .= '</tr>';

			//write divider
			$data_footer .= '<tr><td colspan="'.$columns.'"><hr></td></tr>';

		}

		//add last page
		if ($p >= 55) {
			$pdf->AddPage('L', array($page_width, $page_height));
		}

		//clear the output buffer
		if (ob_get_level()) {
		    ob_end_clean();
		}

		//output remaining data
		$data_body_chunk = $data_start.$data_head;
		foreach ($data_body as $data_body_row) {
			$data_body_chunk .= $data_body_row;
		}
		$data_body_chunk .= $data_footer.$data_end;
		$pdf->writeHTML($data_body_chunk, true, false, false, false, '');
		unset($data_body_chunk);

		//define file name
		if ($_REQUEST['show'] == 'all' && permission_exists('xml_cdr_all')) {
			$pdf_filename = "cdr_".date("Ymd_His").".pdf";
		}
		else {
			$pdf_filename = "cdr_".$_SESSION['domain_name']."_".date("Ymd_His").".pdf";
		}

		header("Content-Type: application/force-download");
		header("Content-Type: application/octet-stream");
		header("Content-Type: application/download");
		header("Content-Description: File Transfer");
		header('Content-Disposition: attachment; filename="'.$pdf_filename.'"');
		header("Content-Type: application/pdf");
		header('Accept-Ranges: bytes');
		header("Cache-Control: no-cache, must-revalidate"); // HTTP/1.1
		header("Expires: Sat, 26 Jul 1997 05:00:00 GMT"); // date in the past

		// push pdf download
		$pdf -> Output($pdf_filename, 'D');	// Display [I]nline, Save to [F]ile, [D]ownload

	}

?>