translater/inc/class.dc.translater.php

1527 lines
49 KiB
PHP
Raw Normal View History

2021-08-18 19:42:30 +00:00
<?php
# -- BEGIN LICENSE BLOCK ----------------------------------
#
# This file is part of translater, a plugin for Dotclear 2.
#
2021-08-19 21:11:14 +00:00
# Copyright (c) 2009-2021 Jean-Christian Denis and contributors
2021-08-18 19:42:30 +00:00
#
# Licensed under the GPL version 2.0 license.
# A copy of this license is available in LICENSE file or at
# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
#
# -- END LICENSE BLOCK ------------------------------------
2021-08-18 22:48:47 +00:00
if (!defined('DC_CONTEXT_ADMIN')) {
return;
}
2021-08-18 19:42:30 +00:00
/**
* Translater tools.
*/
class dcTranslater
{
2021-08-18 22:48:47 +00:00
public $core;
public $proposal;
# List of l10n code/name allowed from clearbricks l10n class
protected static $iso = array();
# List of type of folder where backups could be saved
public static $allowed_backup_folders = array(
'public',
'module',
'plugin',
'cache',
'translater'
);
# List of l10n groups (subname) of file allowed
public static $allowed_l10n_groups = array(
'main',
'public',
'theme',
'admin',
'date',
'error'
);
# List of informations about author allowed
public static $allowed_user_informations = array(
'firstname',
'displayname',
'name',
'email',
'url'
);
# List of settings and infos
private $default_settings = array(
'plugin_menu' => array(
'id' => 'translater_plugin_menu',
'value' => 0,
'type' => 'boolean',
'label' => 'Put an link in plugins page'
),
'theme_menu' => array(
'id' => 'translater_theme_menu',
'value' => 0,
'type' => 'boolean',
'label' => 'Put a link in themes page'
),
'backup_auto' => array(
'id' => 'translater_backup_auto',
'value' => 1,
'type' => 'boolean',
'label' => 'Make a backup of languages old files when there are modified'
),
'backup_limit' => array(
'id' => 'translater_backup_limit',
'value' => 20,
'type' => 'string',
'label' => 'Maximum backups per module'
),
'backup_folder' => array(
'id' => 'translater_backup_folder',
'value' => 'module',
'type' => 'string',
'label' => 'In which folder to store backups'
),
'start_page' => array(
'id' => 'translater_start_page',
'value' => 'setting',
'type' => 'string',
'label' => 'Page to start on'
),
'write_po' => array(
'id' => 'translater_write_po',
'value' => 1,
'type' => 'boolean',
'label' => 'Write .po languages files'
),
'write_langphp' => array(
'id' => 'translater_write_langphp',
'value' => 1,
'type' => 'boolean',
'label' => 'Write .lang.php languages files'
),
'scan_tpl' => array(
'id' => 'translater_scan_tpl',
'value' => 0,
'type' => 'boolean',
'label' => 'Translate strings of templates files'
),
'parse_nodc' => array(
'id' => 'translater_parse_nodc',
'value' => 1,
'type' => 'boolean',
'label' => 'Translate only untranslated strings of Dotclear',
),
'hide_default' => array(
'id' => 'translater_hide_default',
'value' => 1,
'type' => 'boolean',
'label' => 'Hide default modules of Dotclear',
),
'parse_comment' => array(
'id' => 'translater_parse_comment',
'value' => 1,
'type' => 'boolean',
'label' => 'Write comments and strings informations in lang files'
),
'parse_user' => array(
'id' => 'translater_parse_user',
'value' => 1,
'type' => 'boolean',
'label' => 'Write inforamtions about author in lang files'
),
'parse_userinfo' => array(
'id' => 'translater_parse_userinfo',
'value' => 'displayname, email',
'type' => 'string',
'label' => 'Type of informations about user to write'
),
'import_overwrite' => array(
'id' => 'translater_import_overwrite',
'value' => 0,
'type' => 'boolean',
'label' => 'Overwrite existing languages when import packages'
),
'export_filename' => array(
'id' => 'translater_export_filename',
'value' => 'type-module-l10n-timestamp',
'type' => 'string',
'label' => 'Name of files of exported package'
),
'proposal_tool' => array(
'id' => 'translater_proposal_tool',
'value' => 'google',
'type' => 'string',
'label' => 'Id of default tool for proposed translation'
),
'proposal_lang' => array(
'id' => 'translater_proposal_lang',
'value' => 'en',
'type' => 'string',
'label' => 'Default source language for proposed translation'
)
);
# List of default modules of Dotclear
public static $default_dotclear_modules = array(
'plugin' => array(
'aboutConfig',
'akismet',
'antispam',
'attachments',
'blogroll',
'blowupConfig',
'breadcrumb',
'dcCKEditor',
'dclegacy',
'dcLegacyEditor',
'fairTrackbacks',
'importExport',
'maintenance',
'pages',
'pings',
'simpleMenu',
'tags',
'themeEditor',
'userPref',
'widgets'
),
'theme' => array(
'default',
'berlin',
'blueSilence',
'customCSS',
'ductile'
)
);
# List of modules (from plugins,thems, by dcModule::getModules)
private $modules = array();
# Particular module
private $module = array();
# Construtor
function __construct($core)
{
$this->core =& $core;
$core->blog->settings->addNamespace('translater');
$this->loadModules();
$this->proposal = new translaterProposals($core);
}
# Return array of default settings
public function getDefaultSettings()
{
return $this->default_settings;
}
# Get settings for current blog
public function getSettings($id = null)
{
$res = array();
foreach($this->default_settings AS $k => $v) {
if ($k == $id) {
return $this->core->blog->settings->translater->get(
$this->default_settings[$k]['id']
);
}
$res[$k] = $this->core->blog->settings->translater->get(
$this->default_settings[$k]['id']
);
}
return $res;
}
# Get a setting according to default settings list
public function get($id)
{
if (isset($this->default_settings[$id]))
{
return $this->core->blog->settings->translater->get(
$this->default_settings[$id]['id']
);
}
return null;
}
# See get()
public function __get($id)
{
return $this->get($id);
}
# Set a setting according to default settings list
public function set($k, $v)
{
if (!isset($this->default_settings[$k])) {
return false;
}
2021-08-18 19:42:30 +00:00
2021-08-18 22:48:47 +00:00
$this->dropOldSettings($this->default_settings[$k]['id']);
$this->core->blog->settings->translater->put(
$this->default_settings[$k]['id'],
$v,
$this->default_settings[$k]['type'],
$this->default_settings[$k]['label'],
2021-08-19 21:03:53 +00:00
true,
true
2021-08-18 22:48:47 +00:00
);
return true;
}
# See set()
public function __set($k, $v)
{
return $this->set($k, $v);
}
# Drop old "per blog" settings (as of version 2013.05.11)
private function dropOldSettings($id)
{
$this->core->blog->settings->translater->drop($id);
}
# Retrieve a particular info for a given module
public function moduleInfo($id, $info)
{
if (isset($this->modules['plugin'][$id])) {
$type = 'plugin';
} elseif (isset($this->modules['theme'][$id])) {
$type = 'theme';
} else {
return null;
}
if ($info == 'type') {
return $type;
}
return isset($this->modules[$type][$id][$info]) ? $this->modules[$type][$id][$info] : null;
}
# Load array of modules infos by type of modules
private function loadModules()
{
$themes = new dcThemes($this->core);
$themes->loadModules($this->core->blog->themes_path, null);
$this->modules['theme'] = $this->modules['plugin'] = array();
$m = $themes->getModules();
foreach($m AS $k => $v) {
if (!$v['root_writable']) {
continue;
}
$this->modules['theme'][$k] = $v;
$this->modules['theme'][$k]['id'] = $k;
$this->modules['theme'][$k]['type'] = 'theme';
}
$m = $this->core->plugins->getModules();
foreach($m AS $k => $v)
{
if (!$v['root_writable']) {
continue;
}
$this->modules['plugin'][$k] = $v;
$this->modules['plugin'][$k]['id'] = $k;
$this->modules['plugin'][$k]['type'] = 'plugin';
}
}
2021-08-18 19:42:30 +00:00
2021-08-18 22:48:47 +00:00
# Return array of modules infos by type of modules
2021-08-19 21:03:53 +00:00
public function listModules($type = '')
2021-08-18 22:48:47 +00:00
{
return in_array($type, array('plugin', 'theme')) ?
$this->modules[$type] :
array_merge($this->modules['theme'], $this->modules['plugin']);
}
# Return array object of a particular module for a given type of module
public function getModule($module='',$type='')
{
$o = new ArrayObject();
# Load nothing?
if (empty($module)) {
return false;
}
# Unknow type?
if (!in_array($type, array('plugin', 'theme'))) {
$modules = array_merge($this->modules['theme'], $this->modules['plugin']);
} else {
$modules = $this->modules[$type];
}
# Unknow module?
if (!isset($modules[$module])) {
throw new Exception(sprintf(
__('Cannot find module %s'), $module
));
return false;
}
# Module info
foreach($modules[$module] as $a => $b) {
$o->{$a} = $b;
}
$o->root = path::real($o->root);
# Locales path
$o->locales = $o->root . '/locales';
# Module exists
$o->exists = true;
# Module Basename
$i = path::info($o->root);
$o->basename = $i['basename'];
return $o;
}
public function getBackupFolder($module, $throw = false)
{
$dir = false;
switch($this->backup_folder) {
case 'module':
# plugin
if (isset($this->modules['plugin'][$module])
&& $this->modules['plugin'][$module]['root_writable']) {
$dir = path::real($this->modules['plugin'][$module]['root']) . '/locales';
#theme
}
elseif (isset($this->modules['theme'][$module])
&& $this->modules['theme'][$module]['root_writable']) {
$dir = path::real($this->modules['theme'][$module]['root']) . '/locales';
}
break;
2021-08-18 19:42:30 +00:00
2021-08-18 22:48:47 +00:00
case 'plugin':
$tmp = path::real(array_pop(explode(PATH_SEPARATOR, DC_PLUGINS_ROOT)));
if ($tmp && is_writable($tmp)) {
$dir = $tmp;
}
break;
2021-08-18 19:42:30 +00:00
2021-08-18 22:48:47 +00:00
case 'public':
$tmp = path::real($this->core->blog->public_path);
if ($tmp && is_writable($tmp)) {
$dir = $tmp;
}
break;
2021-08-18 19:42:30 +00:00
2021-08-18 22:48:47 +00:00
case 'cache':
$tmp = path::real(DC_TPL_CACHE);
if ($tmp && is_writable($tmp)) {
@mkDir($tmp . '/l10n');
$dir = $tmp . '/l10n';
}
break;
2021-08-18 19:42:30 +00:00
2021-08-18 22:48:47 +00:00
case 'translater':
$tmp = path::real($this->modules['plugin']['translater']['root']);
if ($tmp && is_writable($tmp)) {
@mkDir($tmp . '/locales');
$dir = $tmp . '/locales';
}
break;
}
if (!$dir && $throw) {
throw new Exception(sprintf(
__('Cannot find backups folder for module %s'), $module
));
}
return $dir;
}
public function getLangsFolder($module = '', $throw = false)
{
$dir = $module == 'dotclear' ?
DC_ROOT :
self::getModuleFolder($module, false);
if (!$dir && $throw) {
throw new Exception(sprintf(
__('Cannot find languages folder for module %s'), $module
));
}
return !$dir ? false : $dir . '/locales';
}
2021-08-18 19:42:30 +00:00
2021-08-18 22:48:47 +00:00
public function getModuleFolder($module = '', $throw = false)
{
$dir = false;
if ((isset($this->modules['plugin'][$module]['root'])
&& ($tmp = path::real($this->modules['plugin'][$module]['root']))) ||
(isset($this->modules['theme'][$module]['root'])
&& ($tmp = path::real($this->modules['theme'][$module]['root'])))) {
$dir = $tmp;
}
if (!$dir && $throw) {
throw new Exception(sprintf(
__('Cannot find root folder for module %s'), $module
));
}
return $dir;
}
2021-08-18 19:42:30 +00:00
2021-08-18 22:48:47 +00:00
public function isBackupLimit($module, $throw = false)
{
# Find folder of backups
$backup = self::getBackupFolder($module, true);
# Count backup files
$count = 0;
foreach(self::scandir($backup) AS $file) {
if (!is_dir($backup . '/' . $file)
&& preg_match('/^(l10n-'. $module . '(.*?).bck.zip)$/', $backup)) {
$count++;
}
}
# Limite exceed
if ($count >= $this->backup_limit) {
if ($throw) {
throw new Exception(sprintf(
__('Limit of %s backups for module %s exceed'),
$this->backup_limit, $module
));
}
return true;
} else {
return false;
}
}
2021-08-18 19:42:30 +00:00
2021-08-18 22:48:47 +00:00
public function listBackups($module, $return_filename = false)
{
# Not a module installed
self::getLangsFolder($module, true);
# No backup folder for this module
$backup = self::getBackupFolder($module, false);
if (!$backup) {
return array();
}
# Scan files for backups
$res = $sort = array();
$files = self::scandir($backup);
foreach($files AS $file) {
# Not a bakcup file
$is_backup = preg_match(
'/^(l10n-(' . $module . ')-(.*?)-([0-9]*?).bck.zip)$/', $file, $m
);
if (is_dir($backup . '/' . $file)
|| !$is_backup
|| !self::isIsoCode($m[3])) {
continue;
}
# Backup infos
if ($return_filename) {
$res[] = $file;
} else {
$res[$m[3]][$file] = path::info($backup . '/' . $file);
$res[$m[3]][$file]['time']= filemtime($backup . '/' . $file);
$res[$m[3]][$file]['size'] = filesize($backup . '/' . $file);
$res[$m[3]][$file]['module'] = $module;
}
}
return $res;
}
public function createBackup($module, $lang)
{
# Not a module installed
$locales = self::getLangsFolder($module, true);
# No backup folder for this module
$backup = self::getBackupFolder($module, true);
# Not an existing lang
if (!is_dir($locales . '/' . $lang)) {
throw new Exception(sprintf(
__('Cannot find language folder %s for module %s') ,$lang, $module
));
}
# Scan files for a lang
$res = array();
$files = self::scandir($locales . '/' . $lang);
foreach($files as $file) {
# Only lang file
if (!is_dir($locales . '/' . $lang . '/' . $file)
&& (self::isLangphpFile($file)
|| self::isPoFile($file))) {
$res[$locales . '/' . $lang . '/' . $file] =
$module . '/locales/' . $lang . '/' . $file;
}
}
# Do Zip
if (!empty($res)) {
self::isBackupLimit($module, true);
@set_time_limit(300);
$fp = fopen($backup . '/l10n-' . $module . '-' . $lang . '-' . time() . '.bck.zip', 'wb');
$zip = new fileZip($fp);
foreach($res AS $src => $dest) {
$zip->addFile($src, $dest);
}
$zip->write();
$zip->close();
unset($zip);
}
}
public function deleteBackup($module, $file)
{
# Not a module installed
self::getLangsFolder($module, true);
# No backup folder for this module
$backup = self::getBackupFolder($module, true);
# Not a bakcup file
$is_backup = preg_match('/^(l10n-(' . $module . ')-(.*?)-([0-9]*?).bck.zip)$/', $file, $m);
if (is_dir($backup . '/' . $file)
|| !$is_backup
|| !self::isIsoCode($m[3])) {
return;
}
if (!files::isDeletable($backup . '/' . $file)) {
throw new Exception(sprintf(
__('Cannot delete backup file %s'), $file
));
}
unlink($backup . '/' . $file);
}
public function restoreBackup($module, $file)
{
# Not a module installed
$locales = self::getModuleFolder($module, true);
# No backup folder for this module
$backup = self::getBackupFolder($module, true);
if (!file_exists($backup . '/' . $file)) {
throw new Exception(sprintf(
__('Cannot find backup file %s'), $file
));
}
$zip = new fileUnzip($backup . '/' . $file);
$zip_files = $zip->getFilesList();
foreach($zip_files AS $zip_file) {
$f = self::explodeZipFilename($zip_file, true);
if ($module != $f['module']) {
continue;
}
$zip->unzip($zip_file, $locales . '/locales/' . $f['lang'] . '/' . $f['group'] . $f['ext']);
$done = true;
}
$zip->close();
unset($zip);
}
public function exportPack($modules, $langs)
{
# Not a query good formed
if (!is_array($modules) || 1 > count($modules)
|| !is_array($langs) || 1 > count($langs)) {
throw new Exception(
__('Wrong export query')
);
}
# Filter default filename
$filename = files::tidyFileName($this->export_filename);
# Not a filename good formed
if (empty($filename)) {
throw new Exception(sprintf(
__('Cannot use export mask %s'), $this->export_filename
));
}
# Modules folders
$res = array();
$count = array();
foreach($modules AS $module) {
# Not a module installed
$locales = self::getLangsFolder($module, false);
if (!$locales) {
continue;
}
# Langs folders
foreach($langs AS $lang) {
# Not a lang folder
if (!is_dir($locales . '/' . $lang)) {
continue;
}
# Scan files for a lang
$files = self::scandir($locales . '/' . $lang);
foreach($files as $file) {
# Not a lang file
if (is_dir($locales . '/' . $lang . '/' . $file)
|| !self::isLangphpFile($file)
&& !self::isPoFile($file)) {
continue;
}
# Add file to zip in format "module/locales/lang/filename"
$res[$locales . '/' . $lang . '/' . $file] =
$module . '/locales/' . $lang . '/' . $file;
$count[$module] = 1;
}
}
}
# Nothing to do
if (empty($res)) {
throw new Exception('Nothing to export');
}
# Prepare files to zip
@set_time_limit(300);
$fp = fopen('php://output', 'wb');
$zip = new fileZip($fp);
foreach($res as $from => $to) {
$zip->addFile($from,$to);
}
# Set filename
$file_infos = 1 < count($count) ?
array(time(), 'modules', 'multi', self::$dcTranslaterVersion) :
array(
time(),
$modules[0],
self::moduleInfo($modules[0], 'type'),
self::moduleInfo($modules[0], 'version')
);
$filename =
files::tidyFileName(
dt::str(
str_replace(
array('timestamp', 'module', 'type', 'version'),
$file_infos,
$this->export_filename
)
)
);
# Send Zip
header('Content-Disposition: attachment;filename=' . $filename . '.zip');
header('Content-Type: application/x-zip');
$zip->write();
unset($zip);
exit;
}
public function importPack($modules, $zip_file)
{
# Not a file uploaded
files::uploadStatus($zip_file);
# No modules to update
if (!is_array($modules) || 1 > count($modules)) {
throw new Exception(__('Wrong import query'));
}
$done = false;
$res = array();
# Load Unzip object
$zip = new fileUnzip($zip_file['tmp_name']);
$files = $zip->getFilesList();
# Scan zip
foreach($files AS $file) {
$f = self::explodeZipFilename($file, false);
# Not a requested module
if (!is_array($f)
|| !in_array($f['module'],$modules)) {
continue;
}
# Get locales folder (even if "locales" is not set)
if (!$dir = self::getModuleFolder($f['module'], false)) {
continue;
}
$locales = $dir . '/locales';
# Not allow overwrite
if (!$this->import_overwrite
&& file_exists($locales . '/' . $f['lang'] . '/' . $f['group'] . $f['ext'])) {
continue;
}
$res[] = array(
'from' => $file,
'root' => $locales . '/' . $f['lang'],
'to' => $locales . '/' . $f['lang'] . '/' . $f['group'] . $f['ext']
);
}
# Unzip files
foreach ($res AS $rs) {
if (!is_dir($rs['root'])) {
files::makeDir($rs['root'], true);
}
2021-08-18 19:42:30 +00:00
2021-08-18 22:48:47 +00:00
$zip->unzip($rs['from'], $rs['to']);
$done = true;
}
$zip->close();
unlink($zip_file['tmp_name']);
# No file unzip
if (!$done) {
throw new Exception(sprintf(
__('Nothing to import for these modules in pack %s'),
$zip_file['name']
));
}
}
public function explodeZipFilename($file = '', $throw = false)
{
# module/locales/lang/group.ext
$is_file = preg_match(
'/^(.*?)\/locales\/(.*?)\/(.*?)(.po|.lang.php)$/', $file, $f
);
# Explode file to infos
if ($is_file) {
$module = null !== self::moduleInfo($f[1], 'name') ?
$f[1] : false;
$lang = self::isIsoCode($f[2]) ?
$f[2] : false;
$group = in_array($f[3], self::$allowed_l10n_groups) ?
$f[3] : false;
$ext = self::isLangphpFile($f[4]) || self::isPoFile($f[4]) ?
$f[4] : false;
}
# Not good formed
if (!$is_file || !$module || !$lang || !$group || !$ext) {
if ($throw) {
throw new Exception(sprintf(
__('Zip file %s is not in translater format'), $file
));
}
return false;
}
return array(
'module' => $module,
'lang' => $lang,
'group' => $group,
'ext' => $ext
);
}
public function listLangs($module, $return_path = false)
{
$res = array();
# Not a module installed
$locales = self::getLangsFolder($module, true);
# Add prefix "locales" as scandir remove it
$prefix = preg_match('/(locales(.*))$/', $locales) ? 'locales' : '';
# Retrieve langs folders
$files = self::scandir($locales);
foreach($files as $file) {
if (!preg_match(
'/(.*?(locales\/)([^\/]*?)\/([^\/]*?)(.lang.php|.po))$/',
$prefix . $file, $m)) {
continue;
}
if (!self::isIsoCode($m[3])) {
continue;
}
if ($return_path) {
$res[$m[3]][] = $file; # Path
} else {
$res[$m[3]] = self::$iso[$m[3]]; # Lang name
}
}
return $res;
}
public function addLang($module, $lang, $from_lang = '')
{
# Not a module installed
$locales = self::getLangsFolder($module, true);
# Path is right formed
self::isIsoCode($lang, true);
# Retrieve langs folders
$langs = self::listLangs($module);
# Lang folder is not present
if (isset($langs[$lang])) {
throw new Exception(sprintf(
__('Language %s already exists for module %s'), $lang, $module
));
}
# Create new lang directory
files::makeDir($locales . '/' . $lang, true);
# Verify folder of other lang
if (!empty($from_lang) && !isset($langs[$from_lang])) {
throw new Exception(sprintf(
__('Cannot copy file from language %s for module %s'),
$from_lang, $module
));
}
# Copy files from other lang
if (!empty($from_lang)
&& isset($langs[$from_lang])) {
$files = self::scandir($locales . '/' . $from_lang);
foreach($files as $file) {
if (is_dir($locales . '/' . $from_lang . '/' . $file)
|| !self::isLangphpFile($file)
&& !self::isPoFile($file)) {
continue;
}
files::putContent($locales . '/' . $lang . '/' . $file,
file_get_contents($locales . '/' . $from_lang . '/' . $file)
);
}
} else {
# Create basic empty lang file as translater need these files to be present
self::setLangphpFile($module, $lang, 'main', array());
self::setPoFile($module, $lang, 'main', array());
}
}
public function updLang($module, $lang, $msgs)
{
# Not a module installed
$locales = self::getLangsFolder($module, true);
# Path is right formed
self::isIsoCode($lang, true);
# Retrieve langs folders
$langs = self::listLangs($module);
# Lang folder is not present
if (!isset($langs[$lang])) {
throw new Exception(sprintf(
__('Cannot find language folder %s for module %s'), $lang, $module
));
}
# Sort msgids by groups
$rs = array();
foreach($msgs as $msg) {
$msg['group'] = isset($msg['group']) ? $msg['group'] : '';
$msg['msgid'] = isset($msg['msgid']) ? $msg['msgid'] : '';
$msg['msgstr'] = isset($msg['msgstr']) ? trim($msg['msgstr']) : '';
2021-08-18 19:42:30 +00:00
/*
2021-08-18 22:48:47 +00:00
if (get_magic_quotes_gpc()) {
$msg['msgid'] = stripcslashes($msg['msgid']);
$msg['msgstr'] = stripcslashes($msg['msgstr']);
}
*/ if ($msg['msgstr'] == '') {
continue;
}
$rs[$msg['group']][$msg['msgid']] = $msg['msgstr'];
}
# Backup files if auto-backup is on
if ($this->backup_auto) {
self::createBackup($module, $lang);
}
# Delete empty files (files with no group)
foreach(self::$allowed_l10n_groups AS $group) {
if (isset($rs[$group])) {
continue;
}
$po_file = $locales . '/' . $lang . '/' . $group . '.po';
$langphp_file = $locales . '/' . $lang . '/' . $group . '.lang.php';
if (file_exists($po_file)) {
unlink($po_file);
}
if (file_exists($langphp_file)) {
unlink($langphp_file);
}
}
# No msgstr to write
if (empty($rs)) {
throw new Exception(sprintf(
__('No string to write, language %s deleted for module %s'),
$lang, $module
));
}
# Write .po and .lang.php files
foreach($rs AS $group => $msgs) {
self::setLangphpFile($module, $lang, $group, $msgs);
self::setPoFile($module, $lang, $group, $msgs);
}
}
public function delLang($module, $lang, $del_empty_dir = true)
{
# Not a module installed
$locales = self::getLangsFolder($module, true);
# Path is right formed
self::isIsoCode($lang, true);
# Retrieve langs folders
$files = self::listLangs($module, true);
# Lang folder is not present
if (!isset($files[$lang])) {
throw new Exception(sprintf(
__('Cannot find language folder %s for module %s'), $lang, $module
));
}
# Delete .po and .lang.php files
foreach($files[$lang] as $file) {
unlink($locales . '/' . $file);
}
# Delete lang folder if empty
$dir = self::scandir($locales . '/' . $lang);
if (empty($dir)) {
rmdir($locales . '/' . $lang);
}
# Delete locales folder if empty
$loc = self::scandir($locales);
if (empty($loc)) {
rmdir($locales);
}
}
public static function encodeMsg($str)
{
return text::toUTF8(stripslashes(trim($str)));
}
/* Scan a module folder to find all l10n strings in .php files */
public function getMsgIds($module)
{
$res = array();
# Not a module installed
$dir = self::getModuleFolder($module, true);
$files = self::scandir($dir);
$scan_ext = array('php');
if ($this->scan_tpl) {
$scan_ext[] = 'html';
}
foreach($files AS $file) {
if (is_dir($dir . '/' . $file)
|| !in_array(files::getExtension($file),$scan_ext)) {
continue;
}
$contents = file($dir . '/' . $file);
foreach($contents AS $line => $content) {
# php files
//if (preg_match_all("|__\((['\"]{1})(.*)([\"']{1})\)|U", $content, $matches))
if (preg_match_all("|__\((['\"]{1})(.*?)([\"']{1})\)|", $content, $matches)) {
foreach($matches[2] as $id) {
$res[] = array(
'msgid' => self::encodeMsg($id),
'file' => $file,
'line' => $line + 1
);
}
}
# tpl files
if ($this->scan_tpl
&& preg_match_all('/\{\{tpl:lang\s([^}]+)\}\}/', $content, $matches)) {
foreach($matches[1] as $id) {
$res[] = array(
'msgid' => self::encodeMsg($id),
'file' => $file,
'line' => $line + 1
);
}
}
}
unset($contents);
}
return $res;
}
/* Scan a lang folder to find l10n translations in files */
public function getMsgStrs($module, $requested_lang = '')
{
$res = array();
# Not a module installed
$locales = self::getLangsFolder($module, true);
$langs = self::listLangs($module, true);
# Not an existing lang
if (!isset($langs[$requested_lang])) {
return $res;
}
# Lang files
$exists = array();
foreach($langs[$requested_lang] as $file) {
if (in_array($file,$exists)) {
continue;
}
$exists[] = $file;
$path = path::clean($locales . '/' . $file);
# .po files
if (self::isPoFile($file)) {
$po = self::getPoFile($path);
if (!is_array($po)) {
continue;
}
foreach($po as $id => $str) {
$is_po[$requested_lang][$id] = 1;
$res[] = array(
'msgid' => self::encodeMsg($id),
'msgstr' => self::encodeMsg($str),
'lang' => $requested_lang,
'type' => 'po',
'path' => $path,
'file' => basename($file),
'group'=> str_replace('.po', '', basename($file))
);
}
# .lang.php files
} elseif (self::isLangphpFile($file)) {
$php = self::getLangphpFile($path);
foreach($php AS $id => $str) {
# Don't overwrite .po
if (isset($is_po[$requested_lang][$id])) {
continue;
}
$res[] = array(
'msgid' => self::encodeMsg($id),
'msgstr' => self::encodeMsg($str),
'lang' => $requested_lang,
'type' => 'php',
'path' => $path,
'file' => basename($file),
'group'=> str_replace('.lang.php', '', basename($file))
);
}
}
}
return $res;
}
public function getMsgs($module, $requested_lang = '')
{
# Get messages ids of a module
$m_msgids = self::getMsgIds($module);
# Get messages translations for a module
$m_msgstrs = self::getMsgStrs($module, $requested_lang);
# Get messages translations for others modules
foreach(self::listModules() AS $o_module => $o_infos) {
if ($o_module == $module) continue;
$m_o_msgstrs[$o_module] = self::getMsgStrs($o_module, $requested_lang);
}
$m_o_msgstrs['dotclear'] = self::getMsgStrs('dotclear', $requested_lang);
# Only one lang or all
$langs = '' == $requested_lang ?
self::listLangs($module) :
array($requested_lang => self::isIsoCode($requested_lang));
# Let's go reorder the mixture
$res = array();
foreach($langs AS $lang => $iso) {
$res[$lang] = array();
# From id list
foreach($m_msgids AS $rs) {
$res[$lang][$rs['msgid']]['files'][] = array(trim($rs['file'],'/'), $rs['line']);
$res[$lang][$rs['msgid']]['group'] = 'main';
$res[$lang][$rs['msgid']]['msgstr'] = '';
$res[$lang][$rs['msgid']]['in_dc'] = false;
$res[$lang][$rs['msgid']]['o_msgstrs'] = array();
}
# From str list
foreach($m_msgstrs AS $rs) {
if ($rs['lang'] != $lang) {
continue;
}
if (!isset($res[$lang][$rs['msgid']])) {
$res[$lang][$rs['msgid']]['files'][] = array();
$res[$lang][$rs['msgid']]['in_dc'] = false;
$res[$lang][$rs['msgid']]['o_msgstrs'] = array();
}
$res[$lang][$rs['msgid']]['group'] = $rs['group'];
$res[$lang][$rs['msgid']]['msgstr'] = $rs['msgstr'];
$res[$lang][$rs['msgid']]['in_dc'] = false;
}
# From others str list
foreach($m_o_msgstrs AS $o_module => $o_msgstrs) {
foreach($o_msgstrs AS $rs) {
if ($rs['lang'] != $lang) {
continue;
}
if (!isset($res[$lang][$rs['msgid']])) {
continue;
}
$res[$lang][$rs['msgid']]['o_msgstrs'][] = array(
'msgstr' => $rs['msgstr'],
'module' => $o_module,
'file' => $rs['file']
);
if ($o_module == 'dotclear') {
$res[$lang][$rs['msgid']]['in_dc'] = true;
}
}
}
}
return '' == $requested_lang ? $res : $res[$requested_lang];
}
/* Write a lang file */
private function writeLangFile($dir, $content, $throw)
{
$path = path::info($dir);
if (is_dir($path['dirname']) && !is_writable($path['dirname'])
|| file_exists($dir) && !is_writable($dir)) {
throw new Exception(sprintf(
__('Cannot grant write acces on lang file %s'), $dir
));
}
# -- BEHAVIOR -- dcTranslaterBeforeWriteLangFile
$this->core->callBehavior('dcTranslaterBeforeWriteLangFile', $dir, $content, $throw);
$f = @files::putContent($dir,$content);
if (!$f && $throw) {
throw new Exception(sprintf(
__('Cannot write lang file %s'), $dir
));
}
# -- BEHAVIOR -- dcTranslaterAfterWriteLangFile
$this->core->callBehavior('dcTranslaterAfterWriteLangFile', $f, $dir, $content, $throw);
return $f;
}
/* Try if a file is a .lang.php file */
public static function isLangphpFile($file)
{
return files::getExtension($file) == 'php' && stristr($file, '.lang.php');
}
/* Get and parse a .lang.php file */
public static function getLangphpFile($file)
{
if (!file_exists($file)) {
return array();
}
$res = array();
$content = implode('',file($file));
$count = preg_match_all('/(\$GLOBALS\[\'__l10n\'\]\[\'(.*?)\'\]\s*\x3D\s*\'(.*?)\';)/', $content, $m);
if (!$count) {
return array();
}
for ($i = 0; $i < $count; $i++) {
$id = $m[2][$i];
$str = self::langphpString($m[3][$i]);
if ($str) {
$res[self::langphpString($id)] = $str;
}
}
if (!empty($res[''])) {
$res = array_diff_key($res,array(''=>1));
}
return $res;
}
/* Construct and write a .lang.php file */
private function setLangphpFile($module, $lang, $group, $fields)
{
if (!$this->write_langphp) {
return;
}
# Not a module installed
$locales = self::getLangsFolder($module, true);
# Path is right formed
$lang_name = self::isIsoCode($lang, true);
$l = "<?php\n";
if ($this->parse_comment) {
$l .=
'// Language: ' . $lang_name . " \n" .
'// Module: ' . $module . " - " . self::moduleInfo($module, 'version') . "\n" .
'// Date: ' . dt::str('%Y-%m-%d %H:%M:%S') . " \n";
if ($this->parse_user && !empty($this->parse_userinfo)) {
$search = self::$allowed_user_informations;
foreach($search AS $n) {
$replace[] = $this->core->auth->getInfo('user_' . $n);
}
$info = trim(str_replace($search,$replace,$this->parse_userinfo));
if (!empty($info)) {
$l .= '// Author: ' . html::escapeHTML($info) . "\n";
}
}
$l .=
'// Translated with dcTranslater - ' . $this->core->plugins->moduleInfo('translater', 'version') . " \n\n";
}
if ($this->parse_comment) {
$infos = self::getMsgids($module);
foreach($infos AS $info) {
if (isset($fields[$info['msgid']])) {
$comments[$info['msgid']] = (isset($comments[$info['msgid']]) ?
$comments[$info['msgid']] : '') .
'#'.trim($info['file'],'/') . ':' . $info['line'] . "\n";
}
}
}
foreach($fields as $id => $str) {
if ($this->parse_comment && isset($comments[$id])) {
$l .= $comments[$id];
}
$l .=
'$GLOBALS[\'__l10n\'][\'' . addcslashes($id, "'") . '\'] = ' .
'\'' . self::langphpString($str, true) . "';\n";
if ($this->parse_comment) {
$l .= "\n";
}
}
$l .= "";
self::writeLangFile($locales . '/' . $lang . '/' . $group . '.lang.php', $l, true);
}
/* Parse a .lang.php string */
private static function langphpString($string, $reverse = false)
{
if ($reverse) {
$smap = array('\'', "\n", "\t", "\r");
$rmap = array('\\\'', '\\n"' . "\n" . '"', '\\t', '\\r');
return trim((string) str_replace($smap, $rmap, $string));
} else {
$smap = array('/\\\\n/', '/\\\\r/', '/\\\\t/', "/\\\'/");
$rmap = array("\n", "\r", "\t", "'");
return trim((string) preg_replace($smap, $rmap, $string));
}
}
/* Try if a file is a .po file */
public static function isPoFile($file)
{
return files::getExtension($file) == 'po';
}
/* Get and parse a .po file */
public static function getPoFile($file)
{
if (!file_exists($file)) {
return false;
}
$res = array();
$content = implode('',file($file));
$count = preg_match_all('/msgid\s(.*(?:\n".*")*)\nmsgstr\s(.*(?:\n".*")*)/', $content, $m);
if (!$count) return false;
for ($i = 0; $i < $count; $i++) {
$id = preg_replace('/"(.*)"/s','\\1', $m[1][$i]);
$str= preg_replace('/"(.*)"/s','\\1', $m[2][$i]);
$str = self::poString($str);
if ($str) {
$res[self::poString($id)] = $str;
}
}
if (!empty($res[''])) {
$res = array_diff_key($res, array(''=>1));
}
return $res;
}
/* Construct and parse a .po file */
private function setPoFile($module, $lang, $group, $fields)
{
if (!$this->write_po) {
return;
}
# Not a module installed
$locales = self::getLangsFolder($module, true);
# Path is right formed
self::isIsoCode($lang, true);
$l = '';
if ($this->parse_comment) {
$l .=
'# Language: ' . self::$iso[$lang] . "\n" .
'# Module: ' . $module . " - " . self::moduleInfo($module, 'version') . "\n" .
'# Date: ' . dt::str('%Y-%m-%d %H:%M:%S') . "\n";
if ($this->parse_user && !empty($this->parse_userinfo)) {
$search = self::$allowed_user_informations;
foreach($search AS $n) {
$replace[] = $this->core->auth->getInfo('user_' . $n);
}
$info = trim(str_replace($search, $replace, $this->parse_userinfo));
if (!empty($info)) {
$l .= '# Author: ' . html::escapeHTML($info) . "\n";
}
}
$l .=
'# Translated with translater ' . $this->core->plugins->moduleInfo('translater', 'version') . "\n";
}
$l .=
"\n".
"msgid \"\"\n" .
"msgstr \"\"\n" .
'"Content-Type: text/plain; charset=UTF-8\n"' . "\n" .
'"Project-Id-Version: ' . $module . ' ' . self::moduleInfo($module, 'version') . '\n"' . "\n" .
'"POT-Creation-Date: \n"' . "\n" .
'"PO-Revision-Date: ' . date('c') . '\n"' . "\n" .
'"Last-Translator: ' . $this->core->auth->getInfo('user_cn') . '\n"' . "\n" .
'"Language-Team: \n"' . "\n" .
'"MIME-Version: 1.0\n"' . "\n" .
'"Content-Transfer-Encoding: 8bit\n"' . "\n" .
'"Plural-Forms: nplurals=2; plural=(n > 1);\n"' . "\n\n";
if ($this->parse_comment) {
$infos = self::getMsgids($module);
foreach($infos AS $info) {
if (isset($fields[$info['msgid']])) {
$comments[$info['msgid']] = (isset($comments[$info['msgid']]) ?
$comments[$info['msgid']] : '') .
'#: '.trim($info['file'],'/') . ':' . $info['line'] . "\n";
}
}
}
foreach($fields as $id => $str) {
if ($this->parse_comment && isset($comments[$id])) {
$l .= $comments[$id];
}
$l .=
'msgid "' . self::poString($id, true) . '"' . "\n" .
'msgstr "' . self::poString($str, true) . '"' . "\n\n";
}
self::writeLangFile($locales . '/' . $lang . '/' . $group . '.po', $l, true);
}
/* Parse .po string */
private static function poString($string, $reverse = false)
{
if ($reverse) {
$smap = array('"', "\n", "\t", "\r");
$rmap = array('\\"', '\\n"' . "\n" . '"', '\\t', '\\r');
return trim((string) str_replace($smap, $rmap, $string));
} else {
$smap = array('/"\s+"/', '/\\\\n/', '/\\\\r/', '/\\\\t/', '/\\\"/');
$rmap = array('', "\n", "\r", "\t", '"');
return trim((string) preg_replace($smap, $rmap, $string));
}
}
/* Scan recursively a folder and return files and folders names */
public static function scandir($path, $dir = '', $res = array())
{
$path = path::real($path);
if (!is_dir($path) || !is_readable($path)) {
return array();
}
$files = files::scandir($path);
foreach($files AS $file) {
if ($file == '.' || $file == '..') {
continue;
}
if (is_dir($path . '/' . $file)) {
$res[] = $file;
$res = self::scanDir($path . '/' . $file, $dir . '/' . $file, $res);
} else {
$res[] = empty($dir) ? $file : $dir . '/' . $file;
}
}
return $res;
}
/* Return array of langs like in clearbreaks l10n */
public static function getIsoCodes($flip = false, $name_with_code = false)
{
if (empty(self::$iso)) {
self::$iso = l10n::getISOcodes($flip, $name_with_code);
}
return self::$iso;
}
/* Find if lang code exists or lang name */
public static function isIsoCode($iso, $throw = false)
{
$codes = self::getIsoCodes();
$code = isset($codes[$iso]) ? $codes[$iso] : false;
if (!$code && $throw) {
throw new Exception(sprintf(
__('Cannot find language for code %s'), $iso
));
}
return $code;
}
}