3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.5 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2014 |
7 +--------------------------------------------------------------------+
8 | This file is a part of CiviCRM. |
10 | CiviCRM is free software; you can copy, modify, and distribute it |
11 | under the terms of the GNU Affero General Public License |
12 | Version 3, 19 November 2007 and the CiviCRM Licensing Exception. |
14 | CiviCRM is distributed in the hope that it will be useful, but |
15 | WITHOUT ANY WARRANTY; without even the implied warranty of |
16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
17 | See the GNU Affero General Public License for more details. |
19 | You should have received a copy of the GNU Affero General Public |
20 | License and the CiviCRM Licensing Exception along |
21 | with this program; if not, contact CiviCRM LLC |
22 | at info[AT]civicrm[DOT]org. If you have questions about the |
23 | GNU Affero General Public License or the licensing of CiviCRM, |
24 | see the CiviCRM license FAQ at http://civicrm.org/licensing |
25 +--------------------------------------------------------------------+
31 * @copyright CiviCRM LLC (c) 2004-2014
35 class CRM_Utils_PDF_Utils
{
39 * @param string $fileName
41 * @param null $pdfFormat
45 static function html2pdf(&$text, $fileName = 'civicrm.pdf', $output = FALSE, $pdfFormat = NULL) {
46 if (is_array($text)) {
50 $pages = array($text);
52 // Get PDF Page Format
53 $format = CRM_Core_BAO_PdfFormat
::getDefaultValues();
54 if (is_array($pdfFormat)) {
55 // PDF Page Format parameters passed in
56 $format = array_merge($format, $pdfFormat);
59 // PDF Page Format ID passed in
60 $format = CRM_Core_BAO_PdfFormat
::getById($pdfFormat);
62 $paperSize = CRM_Core_BAO_PaperSize
::getByName($format['paper_size']);
63 $paper_width = self
::convertMetric($paperSize['width'], $paperSize['metric'], 'pt');
64 $paper_height = self
::convertMetric($paperSize['height'], $paperSize['metric'], 'pt');
65 // dompdf requires dimensions in points
66 $paper_size = array(0, 0, $paper_width, $paper_height);
67 $orientation = CRM_Core_BAO_PdfFormat
::getValue('orientation', $format);
68 $metric = CRM_Core_BAO_PdfFormat
::getValue('metric', $format);
69 $t = CRM_Core_BAO_PdfFormat
::getValue('margin_top', $format);
70 $r = CRM_Core_BAO_PdfFormat
::getValue('margin_right', $format);
71 $b = CRM_Core_BAO_PdfFormat
::getValue('margin_bottom', $format);
72 $l = CRM_Core_BAO_PdfFormat
::getValue('margin_left', $format);
74 $stationery_path_partial = CRM_Core_BAO_PdfFormat
::getValue('stationery', $format);
76 $stationery_path = NULL;
77 if(strlen($stationery_path_partial)) {
78 $doc_root = $_SERVER['DOCUMENT_ROOT'];
79 $stationery_path = $doc_root."/".$stationery_path_partial;
82 $margins = array($metric,$t,$r,$b,$l);
84 $config = CRM_Core_Config
::singleton();
88 <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\"/>
89 <style>@page { margin: {$t}{$metric} {$r}{$metric} {$b}{$metric} {$l}{$metric}; }</style>
90 <style type=\"text/css\">@import url({$config->userFrameworkResourceURL}css/print.css);</style>
93 <div id=\"crm-container\">\n";
95 // Strip <html>, <header>, and <body> tags from each page
96 $htmlElementstoStrip = array(
97 '@<head[^>]*?>.*?</head>@siu',
102 '@<!DOCTYPE[^>]*?>@siu',
104 $htmlElementsInstead = array('', '', '', '', '', '');
105 foreach ($pages as & $page) {
106 $page = preg_replace($htmlElementstoStrip,
107 $htmlElementsInstead,
111 // Glue the pages together
112 $html .= implode("\n<div style=\"page-break-after: always\"></div>\n", $pages);
117 if ($config->wkhtmltopdfPath
) {
118 return self
::_html2pdf_wkhtmltopdf($paper_size, $orientation, $margins, $html, $output, $fileName);
121 //return self::_html2pdf_dompdf($paper_size, $orientation, $html, $output, $fileName);
122 return self
::_html2pdf_tcpdf($paper_size, $orientation, $margins, $html, $output, $fileName, $stationery_path);
126 static function _html2pdf_tcpdf($paper_size, $orientation, $margins, $html, $output, $fileName, $stationery_path) {
127 // Documentation on the TCPDF library can be found at: http://www.tcpdf.org
128 // This function also uses the FPDI library documented at: http://www.setasign.com/products/fpdi/about/
129 // Syntax borrowed from https://github.com/jake-mw/CDNTaxReceipts/blob/master/cdntaxreceipts.functions.inc
130 require_once 'tcpdf/tcpdf.php';
131 require_once('FPDI/fpdi.php'); // This library is only in the 'packages' area as of version 4.5
133 $paper_size_arr = array( $paper_size[2], $paper_size[3]);
135 // print_r( $paper_size_arr );
136 $pdf = new TCPDF($orientation, 'pt', $paper_size_arr, 'UTF-8', FALSE);
139 if (is_readable($stationery_path)){
140 $pdf->SetStationery( $stationery_path );
144 $pdf->SetKeywords('CiviCRM.org');
145 $pdf->setPageUnit( $margins[0] ) ;
146 $pdf->SetMargins($margins[4], $margins[1], $margins[2], true);
148 $pdf->setJPEGQuality('100');
149 $pdf->SetAutoPageBreak(true, $margins[3]);
159 // output the HTML content
160 $pdf->writeHTML($html, $ln, $fill, $reset_parm, $cell, $align);
162 // reset pointer to the last page
165 // close and output the PDF
167 $pdf_file = 'CiviLetter'.'.pdf';
168 $pdf->Output($pdf_file, 'D');
169 CRM_Utils_System
::civiExit(1);
175 * @param $orientation
182 static function _html2pdf_dompdf($paper_size, $orientation, $html, $output, $fileName) {
183 require_once 'packages/dompdf/dompdf_config.inc.php';
184 spl_autoload_register('DOMPDF_autoload');
185 $dompdf = new DOMPDF();
186 $dompdf->set_paper($paper_size, $orientation);
187 $dompdf->load_html($html);
191 return $dompdf->output();
194 $dompdf->stream($fileName);
200 * @param $orientation
206 static function _html2pdf_wkhtmltopdf($paper_size, $orientation, $margins, $html, $output, $fileName) {
207 require_once 'packages/snappy/src/autoload.php';
208 $config = CRM_Core_Config
::singleton();
209 $snappy = new Knp\Snappy\
Pdf($config->wkhtmltopdfPath
);
210 $snappy->setOption("page-width", $paper_size[2] . "pt");
211 $snappy->setOption("page-height", $paper_size[3] . "pt");
212 $snappy->setOption("orientation", $orientation);
213 $snappy->setOption("margin-top", $margins[1] . $margins[0]);
214 $snappy->setOption("margin-right", $margins[2] . $margins[0]);
215 $snappy->setOption("margin-bottom", $margins[3] . $margins[0]);
216 $snappy->setOption("margin-left", $margins[4] . $margins[0]);
217 $pdf = $snappy->getOutputFromHtml($html);
222 header('Content-Type: application/pdf');
223 header('Content-Disposition: attachment; filename="' . $fileName . '"');
229 * function to convert value from one metric to another
235 * @param null $precision
239 static function convertMetric($value, $from, $to, $precision = NULL) {
240 switch ($from . $to) {
289 if (!is_null($precision)) {
290 $value = round($value, $precision);
299 * @param int $numPages
301 * @param string $output
302 * @param string $creator
303 * @param string $author
304 * @param string $title
306 static function &pdflib($fileName,
311 $output = 'College_Match_App',
312 $creator = 'CiviCRM',
313 $author = 'http://www.civicrm.org/',
314 $title = '2006 College Match Scholarship Application'
318 $pdf->set_parameter("compatibility", "1.6");
319 $pdf->set_parameter("licensefile", "/home/paras/bin/license/pdflib.txt");
321 if ($pdf->begin_document('', '') == 0) {
322 CRM_Core_Error
::statusBounce("PDFlib Error: " . $pdf->get_errmsg());
325 $config = CRM_Core_Config
::singleton();
326 $pdf->set_parameter('resourcefile', $config->templateDir
. '/Quest/pdf/pdflib.upr');
327 $pdf->set_parameter('textformat', 'utf8');
329 /* Set the search path for fonts and PDF files */
331 $pdf->set_parameter('SearchPath', $searchPath);
333 /* This line is required to avoid problems on Japanese systems */
335 $pdf->set_parameter('hypertextencoding', 'winansi');
337 $pdf->set_info('Creator', $creator);
338 $pdf->set_info('Author', $author);
339 $pdf->set_info('Title', $title);
341 $blockContainer = $pdf->open_pdi($fileName, '', 0);
342 if ($blockContainer == 0) {
343 CRM_Core_Error
::statusBounce('PDFlib Error: ' . $pdf->get_errmsg());
346 for ($i = 1; $i <= $numPages; $i++
) {
347 $page = $pdf->open_pdi_page($blockContainer, $i, '');
349 CRM_Core_Error
::statusBounce('PDFlib Error: ' . $pdf->get_errmsg());
352 /* dummy page size */
353 $pdf->begin_page_ext(20, 20, '');
355 /* This will adjust the page size to the block container's size. */
357 $pdf->fit_pdi_page($page, 0, 0, 'adjustpage');
361 /* Fill all text blocks with dynamic data */
363 foreach ($values as $key => $value) {
364 if (is_array($value)) {
368 // pdflib does like the forward slash character, hence convert
369 $value = str_replace('/', '_', $value);
371 $res = $pdf->fill_textblock($page,
374 'embedding encoding=winansi'
379 CRM_Core_Error::debug( "$key, $value: $res", $pdf->get_errmsg( ) );
381 CRM_Core_Error::debug( "SUCCESS: $key, $value", null );
386 $pdf->end_page_ext('');
387 $pdf->close_pdi_page($page);
390 $pdf->end_document('');
391 $pdf->close_pdi($blockContainer);
393 $buf = $pdf->get_buffer();
397 header('Content-type: application/pdf');
398 header("Content-Length: $len");
399 header("Content-Disposition: inline; filename={$output}.pdf");
401 CRM_Utils_System
::civiExit();
407 catch(PDFlibException
$excp) {
408 CRM_Core_Error
::statusBounce('PDFlib Error: Exception' .
409 "[" . $excp->get_errnum() . "] " . $excp->get_apiname() . ": " .
413 catch(Exception
$excp) {
414 CRM_Core_Error
::statusBounce("PDFlib Error: " . $excp->get_errmsg());