debug("add($msg, $context)"); if ($msg == '') return; if (!is_null($lang) && _($msg) != "$msg") return; // Message already exists ? if (array_key_exists($msg, $data)) { if ($context && !in_array($context, $data[$msg]['contexts'])) $data[$msg]['contexts'][] = $context; return True; } // Handle translation $translation = ""; if (array_key_exists($msg, $translations)) { $translation = $translations[$msg]; } elseif (!is_null($lang) && _($msg) != $msg) { $translation = _($msg); } elseif ($interactive && $format != 'pot') { if ($context) fwrite(STDERR, "\n# $context\n"); if ($copyoriginalvalue) { fwrite(STDERR, "\"$msg\"\n\n => Please enter translated string (or leave empty to copy original string) : "); $in = trim(fgets(STDIN)); if ($in) $translation = $in; else $translation = $msg; } else { fwrite(STDERR, "\"$msg\"\n\n => Please enter translated string (or 'c' to copy original message, 'i' to ignore this message, leave empty to pass) : "); $in = trim(fgets(STDIN)); if ($in) { if ($in=="i") return True; if ($in=="c") $translation = $msg; else $translation = $in; } } } $data[$msg] = array ( 'translation' => $translation, 'contexts' => ($context?array($context):array()), ); } function addFromLSconfig($pattern, $value='value', $excludes=array()) { global $LSlang_cli_logger; $LSlang_cli_logger -> debug("addFromLSconfig($pattern, array(".implode(',', $excludes)."))"); $keys = LSconfig :: getMatchingKeys($pattern); $LSlang_cli_logger -> debug("addFromLSconfig : ".count($keys)." matching key(s)"); foreach ($keys as $key => $value) { $LSlang_cli_logger -> debug("addFromLSconfig : $key = $value"); if ($value == 'key') { // Get the last key parts as value and all other as key $key_parts = explode('.', $key); $value = $key_parts[count($key_parts)-1]; $key = implode('.', array_slice($key_parts, 0, count($key_parts)-1)); } if (!in_array($value, $excludes) && is_string($value)) add($value, $key); } } // Load translation files foreach($load_files as $path) { $LSlang_cli_logger -> debug("Load $path lang file"); @include($path); foreach($GLOBALS['LSlang'] as $msg => $trans) { $translations[$msg]=$trans; } } // Initialize session LSlang :: setLocale($lang, $encoding); // Load lang string if lang was specify if ($lang && $encoding && isset($GLOBALS['LSlang']) && is_array($GLOBALS['LSlang'])) { foreach($GLOBALS['LSlang'] as $msg => $trans) { $translations[$msg] = $trans; } } /* * Manage configuration parameters */ if (!in_array('config', $withouts) && (!$only || $only == 'config')) { // LDAP Servers $objects = array(); foreach(LSconfig :: keys('ldap_servers') as $ldap_server_id) { addFromLSconfig("ldap_servers.$ldap_server_id.name"); addFromLSconfig("ldap_servers.$ldap_server_id.subDnLabel"); addFromLSconfig("ldap_servers.$ldap_server_id.recoverPassword.recoveryHashMail.subject"); addFromLSconfig("ldap_servers.$ldap_server_id.recoverPassword.recoveryHashMail.msg"); addFromLSconfig("ldap_servers.$ldap_server_id.recoverPassword.newPasswordMail.subject"); addFromLSconfig("ldap_servers.$ldap_server_id.recoverPassword.newPasswordMail.msg"); addFromLSconfig("ldap_servers.$ldap_server_id.subDn.*", 'key', array("LSobject")); addFromLSconfig("ldap_servers.$ldap_server_id.LSprofiles.*.label"); // LSaccess foreach (LSconfig :: get("ldap_servers.$ldap_server_id.LSaccess", array()) as $LSobject) { if (is_string($LSobject) && !in_array($LSobject, $objects) && LSsession :: loadLSobject($LSobject)) { $objects[] = $LSobject; } } // Sub DN LSobjects foreach (LSconfig :: getMatchingKeys("ldap_servers.$ldap_server_id.subDn.*.LSobjects.*") as $LSobject) if (is_string($LSobject) && !in_array($LSobject, $objects) && LSsession :: loadLSobject($LSobject)) $objects[] = $LSobject; } $LSlang_cli_logger -> debug('LSobjects list : '.implode(', ', $objects)); // LSobject foreach($objects as $obj) { addFromLSconfig("LSobjects.$obj.label"); // LSrelation addFromLSconfig("LSobjects.$obj.LSrelation.*.label"); addFromLSconfig("LSobjects.$obj.LSrelation.*.emptyText"); // Custom Actions addFromLSconfig("LSobjects.$obj.customActions.*.label"); addFromLSconfig("LSobjects.$obj.customActions.*.helpInfo"); addFromLSconfig("LSobjects.$obj.customActions.*.question_format"); addFromLSconfig("LSobjects.$obj.customActions.*.onSuccessMsgFormat"); // LSform addFromLSconfig("LSobjects.$obj.LSform.layout.*.label"); addFromLSconfig("LSobjects.$obj.LSform.dataEntryForm.*.label"); // LSsearch addFromLSconfig("LSobjects.$obj.LSsearch.predefinedFilters.*"); addFromLSconfig("LSobjects.$obj.LSsearch.extraDisplayedColumns.*.label"); addFromLSconfig("LSobjects.$obj.LSsearch.customActions.*.label"); addFromLSconfig("LSobjects.$obj.LSsearch.customActions.*.question_format"); addFromLSconfig("LSobjects.$obj.LSsearch.customActions.*.onSuccessMsgFormat"); // Attributes foreach(LSconfig :: keys("LSobjects.$obj.attrs") as $attr) { addFromLSconfig("LSobjects.$obj.attrs.$attr.label"); addFromLSconfig("LSobjects.$obj.attrs.$attr.help_info"); addFromLSconfig("LSobjects.$obj.attrs.$attr.no_value_label"); addFromLSconfig("LSobjects.$obj.attrs.$attr.check_data.*.msg"); addFromLSconfig("LSobjects.$obj.attrs.$attr.validation.*.msg"); // HTML Options $html_type = LSconfig :: get("LSobjects.$obj.attrs.$attr.html_type"); switch($html_type) { case 'boolean': addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.true_label"); addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.false_label"); break; case 'jsonCompositeAttribute': $components = LSconfig :: keys("LSobjects.$obj.attrs.$attr.html_options.components"); foreach($components as $c) { addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.components.$c.label"); addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.components.$c.help_info"); addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.components.$c.check_data.*.msg"); if ( LSconfig :: get("LSobjects.$obj.attrs.$attr.html_options.components.$c.type") == 'select_list' && LSconfig :: get("LSobjects.$obj.attrs.$attr.html_options.components.$c.options.translate_labels", "True", "bool") && !in_array('select-list', $withouts) ) { foreach(LSconfig :: get("LSobjects.$obj.attrs.$attr.html_options.components.$c.options.possible_values", array()) as $pkey => $plabel) { if (is_string($pkey)) { if ($pkey == 'OTHER_OBJECT') continue; elseif ($pkey == 'OTHER_ATTRIBUTE') { if (is_string($plabel)) continue; elseif (is_array($plabel)) { if (isset($plabel['json_component_key'])) addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.components.$c.options.possible_values.OTHER_ATTRIBUTE.json_component_label"); else addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.components.$c.options.possible_values.OTHER_ATTRIBUTE.*"); } } else add($plabel, "LSobjects.$obj.attrs.$attr.html_options.components.$c.options.possible_values.$pkey"); } elseif (is_int($pkey) && is_array($plabel)) { // Sub possible values addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.components.$c.options.possible_values.$pkey.label"); foreach(LSconfig :: get("LSobjects.$obj.attrs.$attr.html_options.components.$c.options.possible_values.$pkey.possible_values", array()) as $ppkey => $pplabel) { if ($ppkey == 'OTHER_OBJECT') continue; elseif ($ppkey == 'OTHER_ATTRIBUTE') { if (is_string($pplabel)) continue; elseif (is_array($pplabel)) { if (isset($pplabel['json_component_key'])) addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.components.$c.options.possible_values.OTHER_ATTRIBUTE.json_component_label"); else addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.components.$c.options.possible_values.OTHER_ATTRIBUTE.*"); } } elseif(is_string($pplabel)) { add($pplabel, "LSobjects.$obj.attrs.$attr.html_options.components.$c.options.possible_values.$pkey.possible_values.$ppkey"); } } } } } } break; case 'labeledValue': addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.labels.*"); break; case 'password': addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.mail.subject"); addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.mail.msg"); addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.confirmChangeQuestion"); break; case 'select_list': case 'select_box': if (LSconfig :: get("LSobjects.$obj.attrs.$attr.html_options.translate_labels", "True", "bool") && !in_array('select-list', $withouts)) { foreach(LSconfig :: get("LSobjects.$obj.attrs.$attr.html_options.possible_values", array()) as $pkey => $plabel) { if (is_string($pkey)) { if ($pkey == 'OTHER_OBJECT') continue; elseif ($pkey == 'OTHER_ATTRIBUTE') { if (is_string($plabel)) continue; elseif (is_array($plabel)) { if (isset($plabel['json_component_key'])) addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.possible_values.OTHER_ATTRIBUTE.json_component_label"); else addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.possible_values.OTHER_ATTRIBUTE.*"); } } else add($plabel, "LSobjects.$obj.attrs.$attr.html_options.possible_values.$pkey"); } elseif (is_int($pkey) && is_array($plabel)) { // Sub possible values addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.possible_values.$pkey.label"); foreach(LSconfig :: get("LSobjects.$obj.attrs.$attr.html_options.possible_values.$pkey.possible_values", array()) as $ppkey => $pplabel) { if ($ppkey == 'OTHER_OBJECT') continue; elseif ($ppkey == 'OTHER_ATTRIBUTE') { if (is_string($pplabel)) continue; elseif (is_array($pplabel)) { if (isset($pplabel['json_component_key'])) addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.possible_values.OTHER_ATTRIBUTE.json_component_label"); else addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.possible_values.OTHER_ATTRIBUTE.*"); } } elseif(is_string($pplabel)) { add($pplabel, "LSobjects.$obj.attrs.$attr.html_options.possible_values.$pkey.possible_values.$ppkey"); } } } } } break; case 'valueWithUnit': addFromLSconfig("LSobjects.$obj.attrs.$attr.html_options.units.*"); break; } } } } /* * Manage template file */ if (!in_array('templates', $withouts) && (!$only || $only == 'templates')) { function parse_template_file($file) { global $LSlang_cli_logger; $LSlang_cli_logger -> debug("parse_template_file($file) : start ..."); $count = 0; foreach(file($file) as $line) { $count ++; if (preg_match_all('/\{ *tr +msg=["\']([^\}]+)["\'] *\}/',$line,$matches)) { foreach($matches[1] as $t) { $t = preg_replace('/[\'"]\|escape\:.*$/', '', $t); $LSlang_cli_logger -> debug(" - \"$t\" # Line $count"); add($t, absolute2relative_path($file).":$count"); } } } $LSlang_cli_logger -> debug("parse_template_file($file) : done."); } function find_and_parse_template_file($dir) { if (is_dir($dir)) { if ($dh = opendir($dir)) { while (($file = readdir($dh)) !== false) { if ($file=='.' || $file=='..') continue; if (is_dir($dir.'/'.$file)) { find_and_parse_template_file($dir.'/'.$file); } elseif (is_file($dir."/".$file) && preg_match('/\.tpl$/',$file)) { parse_template_file($dir.'/'.$file); } } closedir($dh); } } } find_and_parse_template_file(LS_ROOT_DIR.'/'.LS_TEMPLATES_DIR); find_and_parse_template_file(LS_ROOT_DIR.'/'.LS_LOCAL_DIR.LS_TEMPLATES_DIR); } /* * Manage addons files */ if (!in_array('addons', $withouts) && (!$only || $only == 'addons')) { function parse_addon_file($file) { global $LSlang_cli_logger; $LSlang_cli_logger -> debug("parse_addon_file($file)"); $count = 0; foreach(file($file) as $line) { $count++; $offset=0; while ($pos = strpos($line,'__(',$offset)) { $quote=''; $res=''; for ($i=$pos+3;$i $key_data) { if ($copyoriginalvalue && $key_data['translation'] == "") { $val = $key; } else $val = $key_data['translation']; $key=str_replace('"','\\"',$key); $val=str_replace('"','\\"',$val); foreach ($key_data['contexts'] as $context) fwrite($fd, "\n# $context"); if ($additionalfileformat) { fwrite($fd, "\n\$GLOBALS['LSlang'][\"$key\"] = \"$val\";\n"); } else { fwrite($fd, "\n\"$key\" =>\n \"$val\",\n"); } } if (!$additionalfileformat) fwrite($fd, "\n);\n"); } function clean_for_pot_file($val) { $val = str_replace('"', '\\"', $val); return str_replace("\n", "\\n", $val); } function output_pot($fd) { global $LSlang_cli_logger, $data, $copyoriginalvalue; foreach($data as $key => $key_data) { if ($copyoriginalvalue && $key_data['translation'] == "") { $val = $key; } else $val = $key_data['translation']; foreach ($key_data['contexts'] as $context) fwrite($fd, "#: $context\n"); $key = clean_for_pot_file($key); $val = clean_for_pot_file($val); fwrite($fd, "msgid \"$key\"\nmsgstr \"$val\"\n\n"); } } // Determine where to write result if ($output) { $output = relative2absolute_path($output); try { $LSlang_cli_logger -> debug("Open output file ($output)"); $fd = fopen($output, 'w'); } catch(Exception $e) { $LSlang_cli_logger -> error('Error occured opening output file : '.$e->getMessage(), "\n"); } if (!$fd) { $LSlang_cli_logger -> error("Use stdout out instead.\n"); $fd = STDOUT; $output = false; } } else $fd = STDOUT; // Generate output $LSlang_cli_logger -> debug("Output format : $format"); switch($format) { case 'pot': output_pot($fd); break; case 'php': default: output_php($fd); break; } // Close output file (is specified) if ($output && $fd != STDOUT) { $LSlang_cli_logger -> debug("Close output file ($output)"); fclose($fd); } return true; } /** * Args autocompleter for CLI command generate_lang_file * * @param[in] $comp_words array List of already typed words of the command * @param[in] $comp_word_num int The command word number to autocomplete * @param[in] $comp_word string The command word to autocomplete state * @param[in] $opts array List of global available options * * @retval array List of available options for the word to autocomplete **/ function cli_generate_lang_file_args_autocompleter($comp_words, $comp_word_num, $comp_word, $opts) { global $available_withouts, $available_onlys; switch ($comp_words[$comp_word_num-1]) { case '-W': case '--without': return LScli :: autocomplete_opts($available_withouts, $comp_word); break; case '-O': case '--only': return LScli :: autocomplete_opts($available_onlys, $comp_word); break; case '-l': case '--lang': return LScli :: autocomplete_opts(LSlang :: getLangList(false, true), $comp_word); break; case '-o': case '--output': return array(); break; case '-f': case '--format': return LScli :: autocomplete_opts(array('php', 'pot'), $comp_word); break; } $opts = array_merge( $opts, array ( '-W', '--without', '-O', '--only', '-c', '--copy-original-value', '-i', '--interactive', '-a', '--additional-file-format', '-l', '--lang', '-o', '--output', '-f', '--format', ) ); return LScli :: autocomplete_opts($opts, $comp_word); } LScli :: add_command( 'generate_lang_file', 'cli_generate_lang_file', 'Generate lang.php file', 'l [lang] [-o output.file] [file1] [file2] [-h] [options]', array( " -W/--without Disable specified messages. Must be one of", " the following values :", " - ".implode("\n - ", $available_withouts), " -O/--only Only handle specified messages. Must be one", " of the following values :", " - ".implode("\n - ", $available_onlys), " -c/--copy-original-value Copy original value as translated value when", " no translated value exists", " -i/--interactive Interactive mode : ask user to enter", " translated on each translation needed", " -a/--additional-file-format Additional file format output", " -l/--lang Load the specify lang", " Format: [lang].[encoding]", " -o/--output Output file (default: stdout)", " -f/--format Output file format : php or pot", " (default: php)", ), false, // This command does not need LDAP connection 'cli_generate_lang_file_args_autocompleter' ); /** * CLI generate_ldapsaisie_pot command * * @param[in] $command_args array Command arguments * * @retval boolean True on succes, false otherwise **/ function cli_generate_ldapsaisie_pot($command_args) { global $LSlang_cli_logger; // Initialize logger (if not already initialized by another CLI command) if (!isset($LSlang_cli_logger)) $LSlang_cli_logger = LSlog :: get_logger('generate_ldapsaisie_pot'); // Clean php file in tmp directory if (is_dir(LS_TMP_DIR_PATH)) { foreach(listFiles(LS_TMP_DIR_PATH, '/\.php$/') as $file) { $tmp_file = LS_TMP_DIR_PATH.$file; $LSlang_cli_logger -> debug("Remove temporary file '$tmp_file'"); if (!unlink($tmp_file)) { $LSlang_cli_logger -> fatal("Fail to delete temporary file '$tmp_file'."); } } } // List PHP files to parse $php_files = LScli :: run_external_command( array('find', escapeshellarg(LS_ROOT_DIR), '-name', "'*.php'"), null, // no STDIN data false // do not escape command args (already done) ); if (!is_array($php_files) || $php_files[0] != 0) { $LSlang_cli_logger -> fatal("Fail to list PHP files."); } // Extract messages from LdapSaisie PHP files using xgettext $result = LScli :: run_external_command( array( "xgettext", "--from-code utf-8", "--language=PHP", "-o", LS_I18N_DIR_PATH."/ldapsaisie-main.pot", // Output "--omit-header", // No POT header "--keyword=__", // Handle custom __() translation function "--keyword=___,", // Handle custom ___() translation function "--files=-" // Read files to parse from STDIN ), $php_files[1] // Pass PHP files list via STDIN ); if (!is_array($result) || $result[0] != 0) $LSlang_cli_logger -> fatal("Fail to extract messages from PHP files using xgettext."); // Extract other messages from LdapSaisie templates files $result = LScli :: run_command( 'generate_lang_file', array ( "-o", LS_I18N_DIR_PATH."/ldapsaisie-templates.pot", "-f", "pot", "--only", "templates", ), false // do not exit ); if (!$result) $LSlang_cli_logger -> fatal("Fail to extract messages from template files using generate_lang_file command."); // Merge previous results in ldapsaisie.pot file using msgcat $result = LScli :: run_external_command(array( 'msgcat', LS_I18N_DIR_PATH."/ldapsaisie-main.pot", LS_I18N_DIR_PATH."/ldapsaisie-templates.pot", "-o", LS_I18N_DIR_PATH."/ldapsaisie.pot", )); if (!is_array($result) || $result[0] != 0) $LSlang_cli_logger -> fatal("Fail to merge messages using msgcat."); return true; } LScli :: add_command( 'generate_ldapsaisie_pot', 'cli_generate_ldapsaisie_pot', 'Generate ldapsaisie.pot files :', null, array( "This command generate 3 POT files:", " - ".LS_I18N_DIR_PATH."/ldapsaisie-main.pot", " => contains messages from PHP files", " - ".LS_I18N_DIR_PATH."/ldapsaisie-templates.pot", " => contains messages from templates files", " - ".LS_I18N_DIR_PATH."/ldapsaisie.pot", " => contains all messages", ), false // This command does not need LDAP connection );