Esempio n. 1
0
 /**
  * poFile2moFile
  *
  * That's a simple fake of the 'msgfmt' console command.  It reads the
  * contents of a GNU PO file and saves them to a GNU MO file.
  *
  * @param string $pofile path to GNU PO file
  * @param string $mofile path to GNU MO file
  *
  * @static
  * @access  public
  * @return  mixed   Returns true on success or PEAR_Error on failure.
  */
 function poFile2moFile($pofile, $mofile)
 {
     if (!is_file($pofile)) {
         return File_Gettext::raiseError("File {$pofile} doesn't exist.");
     }
     include_once 'File/Gettext/PO.php';
     $PO = new File_Gettext_PO($pofile);
     if (true !== ($e = $PO->load())) {
         return $e;
     }
     $MO =& $PO->toMO();
     if (true !== ($e = $MO->save($mofile))) {
         return $e;
     }
     unset($PO, $MO);
     return true;
 }
Esempio n. 2
0
function macro_MsgTrans($formatter, $value, $param = array())
{
    global $DBInfo;
    $user =& $DBInfo->user;
    if (empty($param['init']) and (!is_array($DBInfo->owners) or !in_array($user->id, $DBInfo->owners))) {
        return sprintf(_("You are not allowed to \"%s\" !"), "msgtrans");
    }
    if (!$pagename) {
        $pagename = $DBInfo->default_translation ? $DBInfo->default_translation : 'LocalTranslationKo';
    }
    $page = $DBInfo->getPage($pagename);
    $strs = array();
    $charset = strtoupper($DBInfo->charset);
    $lang = !empty($value) ? $value : ($DBInfo->lang ? $DBInfo->lang : 'en_US.' . $charset);
    if ($page->exists()) {
        $raw = $page->get_raw_body();
        $raw = rtrim($raw);
        $lines = explode("\n", $raw);
        foreach ($lines as $l) {
            $l = trim($l);
            if ($l[0] == '#') {
                if (preg_match('/^#lang(?' . '>uage)? (ko_KR|en_US|fr_FR)$/', $l, $m)) {
                    $lang = $m[1];
                    if ($DBInfo->charset) {
                        $lang .= '.' . $charset;
                    }
                }
                continue;
            }
            if ($l[0] == '"') {
                if (preg_match('/^(("(([^"]|\\\\")*?)"\\s*)+)\\s*(.*)$/', $l, $m)) {
                    $smap = array('/"\\s+"/', '/\\\\n/', '/\\\\r/', '/\\\\t/', '/\\\\"/');
                    $rmap = array('', "\n", "\r", "\t", '"');
                    $w = preg_replace($smap, $rmap, $m[3]);
                    $t = preg_replace($smap, $rmap, $m[5]);
                }
            } else {
                list($w, $t) = explode(" ", $l, 2);
            }
            $strs[$w] = $t;
        }
    }
    if (getenv("OS") == "Windows_NT") {
        $lang = substr($lang, 0, 2);
    }
    //print_r($strs);
    if (!empty($strs) or !empty($param['init'])) {
        $myMO = null;
        $ldir = 'locale/' . $lang . '/LC_MESSAGES';
        $mofile = $ldir . '/moniwiki.mo';
        if (!file_exists($mofile)) {
            # load *.po file
            $e = false;
            $mylang = substr($lang, 0, 2);
            $pofile = 'locale/po/' . $mylang . '.po';
            if (!file_exists($pofile)) {
                $pofile = dirname(__FILE__) . '/../locale/po/' . $mylang . '.po';
            }
            if (file_exists($pofile)) {
                include_once 'lib/Gettext/PO.php';
                $myPO = new File_Gettext_PO();
                if (($e = $myPO->load($pofile)) == true) {
                    $myMO = $myPO->toMO();
                    preg_match('/charset=(.*)$/', $myMO->meta['Content-Type'], $cs);
                    if (strtoupper($cs[1]) != $charset) {
                        if (function_exists("iconv")) {
                            $myMO->meta['Content-Type'] = 'text/plain; charset=' . $charset;
                            foreach ($myMO->strings as $k => $v) {
                                $nv = iconv($cs[1], $charset, $v);
                                if (isset($nv)) {
                                    $myMO->strings[$k] = $nv;
                                }
                            }
                        } else {
                            $e = false;
                        }
                    }
                }
            }
        } else {
            # load *.mo file
            include_once 'lib/Gettext/MO.php';
            $myMO = new File_Gettext_MO();
            $e = $myMO->load($mofile);
        }
        if (!is_object($myMO)) {
            return;
        }
        if ($e == true) {
            $myMO->strings = array_merge($myMO->strings, $strs);
            #$myMO->meta['PO-Revision-Date']= date('Y-m-d H:iO');
            ksort($myMO->strings);
            // important!
            #print_r($myMO->strings);
        } else {
            $meta = array('Content-Type' => 'text/plain; charset=' . $charset, 'Last-Translator' => 'MoniWiki Translator', 'PO-Revision-Date' => date('Y-m-d H:iO'), 'MIME-Version' => '1.0', 'Language-Team' => 'MoniWiki Translator');
            if (true !== ($e = $myMO->fromArray(array('meta' => $meta, 'strings' => $strs)))) {
                return "Fail to make a mo file.\n";
            }
        }
        $vartmp_dir = $DBInfo->vartmp_dir;
        $tmp = tempnam($vartmp_dir, "GETTEXT");
        #$tmp=$vartmp_dir."/GETTEXT.mo";
        if (true !== ($e = $myMO->save($tmp))) {
            return "Fail to save mo file.\n";
        }
        if (!function_exists('bindtextdomain')) {
            // FIXME use cache class
            $tmp2 = tempnam($vartmp_dir, "GETTEXT");
            $fp = fopen($tmp2, 'w');
            if (is_resource($fp)) {
                fwrite($fp, _msgs_to_php($myMO->strings));
                fclose($fp);
                $ldir2 = $DBInfo->cache_dir . '/' . $ldir;
                if (!rename($tmp2, $ldir2 . '/moniwiki.php')) {
                    unlink($tmp2);
                    // fail to copy ?
                }
            }
        }
        # gettext cache workaround
        # http://kr2.php.net/manual/en/function.gettext.php#58310
        # use md5sum instead
        $md5 = md5_file($tmp);
        $md5file = $DBInfo->cache_dir . '/' . $ldir . '/md5sum';
        $ldir = $DBInfo->cache_dir . '/' . $ldir;
        _mkdir_p($ldir, 0777);
        $f = fopen($md5file, 'w');
        if (is_resource($f)) {
            fwrite($f, $md5);
            fclose($f);
        }
        if (!rename($tmp, $ldir . '/moniwiki-' . $md5 . '.mo')) {
            unlink($md5file);
            // fail to copy ?
            return "Fail to save mo file.\n";
        }
        return _("Local translation files are successfully translated !\n");
    }
    return "Empty !\n";
}