dbxe
/
fusionpbx
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
fusionpbx/app/xml_cdr/xml_cdr_export.php

323 lines
11 KiB
PHP
Raw Normal View History

\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
<?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>
CDR & Archive: Merge and simplify, integrating some features of CDR into Archive.
2020-02-11 18:44:00 +01:00
Portions created by the Initial Developer are Copyright (C) 2008-2020
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
the Initial Developer. All Rights Reserved.
Contributor(s):
Mark J Crane <markjcrane@fusionpbx.com>
*/
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
Replace root.php
2022-10-11 00:35:14 +02:00
//set the include path
$conf = glob("{/usr/local/etc,/etc}/fusionpbx/config.conf", GLOB_BRACE);
set_include_path(parse_ini_file($conf[0])['document.root']);
//includes files
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
require_once "resources/require.php";
require_once "resources/check_auth.php";
//check permissions
Make the export page use the new xml_cdr_export permission.
2020-09-16 23:48:43 +02:00
if (permission_exists('xml_cdr_export')) {
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
//access granted
}
else {
echo "access denied";
exit;
}
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
//add multi-lingual support
$language = new text;
$text = $language->get();
//additional includes
$rows_per_page = ($_SESSION['domain']['paging']['numeric'] != '') ? $_SESSION['domain']['paging']['numeric'] : 50;
CDR & Archive: Merge and simplify, integrating some features of CDR into Archive.
2020-02-11 18:44:00 +01:00
$archive_request = $_POST['archive_request'] == 'true' ? true : false;
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
require_once "xml_cdr_inc.php";
//get the format
CDR: Database class integration.
2019-09-03 16:29:44 +02:00
$export_format = $_REQUEST['export_format'];
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
Update xml_cdr_export.php
2020-01-29 01:28:01 +01:00
//export the csv
Add a permission check for xml_cdr_export_csv and xml_cdr_export_pdf to the CDR export.
2021-01-18 08:00:18 +01:00
if (permission_exists('xml_cdr_export_csv') && $export_format == 'csv') {
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
//define file name
Update xml_cdr_export.php
2020-01-29 01:28:01 +01:00
if ($_GET['show'] == 'all' && permission_exists('xml_cdr_all')) {
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
$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;
CDR: Database class integration.
2019-09-03 16:29:44 +02:00
foreach ($result[0] as $key => $val) {
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
if ($key != "xml" && $key != "json") {
if ($z == 0) {
echo '"'.$key.'"';
}
else {
echo ',"'.$key.'"';
}
}
$z++;
}
echo "\n";
//show the csv data
$x=0;
CDR: Database class integration.
2019-09-03 16:29:44 +02:00
while (true) {
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
$z = 0;
CDR: Database class integration.
2019-09-03 16:29:44 +02:00
foreach ($result[0] as $key => $val) {
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
if ($key != "xml" && $key != "json") {
if ($z == 0) {
echo '"'.$result[$x][$key].'"';
}
else {
echo ',"'.$result[$x][$key].'"';
}
}
$z++;
}
echo "\n";
++$x;
if ($x > ($result_count-1)) {
break;
}
}
}
//export as a PDF
Add a permission check for xml_cdr_export_csv and xml_cdr_export_pdf to the CDR export.
2021-01-18 08:00:18 +01:00
if (permission_exists('xml_cdr_export_pdf') && $export_format == 'pdf') {
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
//load pdf libraries
CDR: Database class integration.
2019-09-03 16:29:44 +02:00
require_once "resources/tcpdf/tcpdf.php";
require_once "resources/fpdi/fpdi.php";
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
//determine page size
switch ($_SESSION['fax']['page_size']['text']) {
CDR & Archive: Merge and simplify, integrating some features of CDR into Archive.
2020-02-11 18:44:00 +01:00
case 'a4':
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
$page_width = 11.7; //in
$page_height = 8.3; //in
break;
CDR & Archive: Merge and simplify, integrating some features of CDR into Archive.
2020-02-11 18:44:00 +01:00
case 'legal':
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
$page_width = 14; //in
$page_height = 8.5; //in
break;
CDR & Archive: Merge and simplify, integrating some features of CDR into Archive.
2020-02-11 18:44:00 +01:00
case 'letter':
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
default :
$page_width = 11; //in
$page_height = 8.5; //in
}
// initialize pdf
$pdf = new FPDI('L', 'in');
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$pdf->SetAutoPageBreak(false);
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
$pdf->SetMargins(0.5, 0.5, 0.5, true);
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
//set default font
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$pdf->SetFont('helvetica', '', 7);
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
//add new page
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$pdf->AddPage('L', array($page_width, $page_height));
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
//set the number of columns
$columns = 12;
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
//write the table column headers
$data_start = '<table cellpadding="0" cellspacing="0" border="0" width="100%">';
$data_end = '</table>';
$data_head = '<tr>';
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$data_head .= '<td width="5%"><b>'.$text['label-direction'].'</b></td>';
$data_head .= '<td width="9%"><b>'.$text['label-caller_id_name'].'</b></td>';
$data_head .= '<td width="9%"><b>'.$text['label-caller_id_number'].'</b></td>';
$data_head .= '<td width="9%"><b>'.$text['label-destination'].'</b></td>';
$data_head .= '<td width="10%" nowrap="nowrap"><b>'.$text['label-start'].'</b></td>';
$data_head .= '<td width="3%" align="right"><b>'.$text['label-tta'].'</b></td>';
$data_head .= '<td width="8%" align="right"><b>'.$text['label-duration'].'</b></td>';
$data_head .= '<td width="8%" align="right"><b>'.$text['label-billsec'].'</b></td>';
$data_head .= '<td width="5%" align="right"><b>'."PDD".'</b></td>';
$data_head .= '<td width="5%" align="center"><b>'."MOS".'</b></td>';
if (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 = $columns + 1;
}
}
$data_head .= '<td width="1%"></td>';
$data_head .= '<td width="10%"><b>'.$text['label-hangup_cause'].'</b></td>';
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
$data_head .= '</tr>';
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$data_head .= '<tr><td colspan="'.$columns.'"><hr></td></tr>';
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
//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
$p = 0; // per page counter
if (sizeof($result) > 0) {
CDR & Archive: Merge and simplify, integrating some features of CDR into Archive.
2020-02-11 18:44:00 +01:00
foreach ($result as $cdr_num => $fields) {
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
$data_body[$p] .= '<tr>';
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$data_body[$p] .= '<td>'.$text['label-'.$fields['direction']].'</td>';
$data_body[$p] .= '<td>'.$fields['caller_id_name'].'</td>';
$data_body[$p] .= '<td>'.$fields['caller_id_number'].'</td>';
$data_body[$p] .= '<td>'.format_phone($fields['destination_number']).'</td>';
$data_body[$p] .= '<td>'.$fields['start_stamp'].'</td>';
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
$total['tta'] += ($fields['tta'] > 0) ? $fields['tta'] : 0;
Fix TTA display bug in Export CDR PDF Same thing as in the xml_cdr.php page display. If the call is answered instantly, less than a second, then the difference is 0s, and the 0s is a visual indicator that the call was answered, it just took less than a second. Calls that didn't get answered have a large negative number stored in the TTA field, 0 is an answered call.
2021-02-20 08:02:03 +01:00
$data_body[$p] .= '<td align="right">'.(($fields['tta'] >= 0) ? $fields['tta'].'s' : null).'</td>';
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
$seconds = ($fields['hangup_cause'] == "ORIGINATOR_CANCEL") ? $fields['duration'] : round(($fields['billmsec'] / 1000), 0, PHP_ROUND_HALF_UP);
$total['duration'] += $seconds;
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$data_body[$p] .= '<td align="right">'.gmdate("G:i:s", $seconds).'</td>';
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
$total['billmsec'] += $fields['billmsec'];
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$data_body[$p] .= '<td align="right">'.number_format(round($fields['billmsec'] / 1000, 2), 2).'s</td>';
$data_body[$p] .= '<td align="right">';
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
if (permission_exists("xml_cdr_pdd")) {
$total['pdd_ms'] += $fields['pdd_ms'];
$data_body[$p] .= number_format(round($fields['pdd_ms'] / 1000, 2), 2).'s';
}
$data_body[$p] .= '</td>';
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$data_body[$p] .= '<td align="center">';
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
if (permission_exists("xml_cdr_mos")) {
$total['rtp_audio_in_mos'] += $fields['rtp_audio_in_mos'];
$data_body[$p] .= (strlen($total['rtp_audio_in_mos']) > 0) ? $fields['rtp_audio_in_mos'] : null;
}
$data_body[$p] .= '</td>';
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
if (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>';
}
}
}
$data_body[$p] .= '<td>&nbsp;</td>';
$data_body[$p] .= '<td>'.ucwords(strtolower(str_replace("_", " ", $fields['hangup_cause']))).'</td>';
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
$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;
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$pdf->writeHTML($data_body_chunk, true, false, false, false, '');
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
unset($data_body_chunk);
unset($data_body);
$p = 0;
//add new page
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$pdf->AddPage('L', array($page_width, $page_height));
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
}
}
}
//write divider
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$data_footer = '<tr><td colspan="'.$columns.'"></td></tr>';
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
//write totals
$data_footer .= '<tr>';
$data_footer .= '<td><b>'.$text['label-total'].'</b></td>';
$data_footer .= '<td>'.$z.'</td>';
$data_footer .= '<td colspan="3"></td>';
$data_footer .= '<td align="right"><b>'.number_format(round($total['tta'], 1), 0).'s</b></td>';
$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>';
$data_footer .= '<td align="right"><b>'.number_format(round(($total['pdd_ms'] / 1000), 2), 2).'s</b></td>';
$data_footer .= '<td colspan="2"></td>';
$data_footer .= '</tr>';
//write divider
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$data_footer .= '<tr><td colspan="'.$columns.'"><hr></td></tr>';
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
//write averages
$data_footer .= '<tr>';
$data_footer .= '<td><b>'.$text['label-average'].'</b></td>';
$data_footer .= '<td colspan="4"></td>';
$data_footer .= '<td align="right"><b>'.round(($total['tta'] / $z), 1).'</b></td>';
$data_footer .= '<td align="right"><b>'.gmdate("G:i:s", ($total['duration'] / $z)).'</b></td>';
$data_footer .= '<td align="right"><b>'.gmdate("G:i:s", round($total['billmsec'] / $z / 1000, 0)).'</b></td>';
$data_footer .= '<td align="right"><b>'.number_format(round(($total['pdd_ms'] / $z / 1000), 2), 2).'s</b></td>';
$data_footer .= '<td align="right"><b>'.round(($total['rtp_audio_in_mos'] / $z), 2).'</b></td>';
$data_footer .= '<td></td>';
$data_footer .= '</tr>';
//write divider
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$data_footer .= '<tr><td colspan="'.$columns.'"><hr></td></tr>';
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
//add last page
if ($p >= 55) {
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$pdf->AddPage('L', array($page_width, $page_height));
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
}
//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;
Update xml_cdr_export.php
2018-06-26 05:08:28 +02:00
$pdf->writeHTML($data_body_chunk, true, false, false, false, '');
\r\n --> \n Cause all the .php files containing lines ending with \r\n to instead end with \n. DYI with: find fusionpbx -type f -name '*.php' -exec dos2unix '{}' \;
2016-04-26 03:30:23 +02:00
unset($data_body_chunk);
//define file name
$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
}
Make the export page use the new xml_cdr_export permission.
2020-09-16 23:48:43 +02:00
?>