$doc->SetTextColor(0, 0, 0); $c = '<h3>General information</h3>'; $c .= 'Moodle release: ' . $CFG->release . '<br />'; $c .= 'PDF producer: TCPDF ' . $doc->getTCPDFVersion() . ' (http://www.tcpdf.org) <br />'; $c .= 'Font of this test page: ' . $fontfamily . '<br />'; $c .= '<h3>Current settings</h3>'; $c .= '<table border="1" cellspacing="0" cellpadding="1">'; foreach (array('K_PATH_MAIN', 'K_PATH_URL', 'K_PATH_FONTS', 'K_PATH_CACHE', 'K_PATH_IMAGES', 'K_BLANK_IMAGE', 'K_CELL_HEIGHT_RATIO', 'K_SMALL_RATIO', 'PDF_CUSTOM_FONT_PATH', 'PDF_DEFAULT_FONT') as $setting) { if (defined($setting)) { $c .= '<tr style="font-size: x-small;"><td>' . $setting . '</td><td>' . constant($setting) . '</td></tr>'; } } $c .= '<tr style="font-size: x-small;"><td>Effective font path</td><td>' . $doc->_getfontpath() . '</td></tr>'; $c .= '</table><br />'; $c .= '<h3>Available font files</h3>'; $fontfiles = $doc->returnFontsList(); sort($fontfiles); $c .= implode(', ', $fontfiles); $c .= '<br />'; $c .= '<h3>Installed languages and their alphabets</h3>'; $languages = array(); $langdirs = get_list_of_plugins('lang', '', $CFG->dataroot); array_unshift($langdirs, 'en'); foreach ($langdirs as $langdir) { if ('en' == $langdir) { $langconfig = $CFG->dirroot . '/lang/en/langconfig.php'; } else { $langconfig = $CFG->dataroot . '/lang/' . $langdir . '/langconfig.php'; } if (is_readable($langconfig)) { include $langconfig;