tools/poToCurrencies.php

<?php

// $Id: poToCurrencies.php,v 1.3 2008/07/01 01:16:14 asmecher Exp $


require(dirname(__FILE__) . '/includes/cliTool.inc.php');

define('PO_TO_CSV_TOOL', '/usr/bin/po2csv');

class poToCurrencies extends CommandLineTool {
   var $locale;

   var $translationFile;

   function poToCurrencies($argv = array()) {
      parent::CommandLineTool($argv);

      $toolName = array_shift($argv);

      $this->locale = array_shift($argv);
      $this->translationFile = array_shift($argv);

      if (  !preg_match('/^[a-z]{2}_[A-Z]{2}$/', $this->locale) ||
         empty($this->translationFile) ||
         !file_exists($this->translationFile)
      ) {
         $this->usage();
         exit(1);
      }
   }

   function usage() {
      echo "Script to convert PO file to OJS's ISO4217 XML format\n"
         . "Usage: {$this->scriptName} locale /path/to/translation.po\n";
   }

   function execute() {
      // Read the translated file as a map from English => Whatever
      $ih = popen(PO_TO_CSV_TOOL . ' ' . escapeshellarg($this->translationFile), 'r');
      if (!$ih) die ('Unable to read ' . $this->translationFile . ' using ' . PO_TO_CSV_TOOL . "\n");

      $translationMap = array();
      while ($row = fgetcsv($ih)) {
         if (count($row) != 3) continue;
         list($comment, $english, $translation) = $row;
         $translationMap[$english] = $translation;
      }
      fclose($ih);

      // Get the English map
      $currencyDao =& DAORegistry::getDAO('CurrencyDAO');
      $currencies =& $currencyDao->getCurrencies();

      // Generate a map of code => translation
      $outputMap = array();
      foreach ($currencies as $currency) {
         $english = $currency->getName();
         $codeAlpha = $currency->getCodeAlpha();
         $codeNumeric = $currency->getCodeNumeric();

         if (!isset($translationMap[$english])) {
            echo "WARNING: Unknown currency \"$english\"! Using English as default.\n";
         } else {
            $currency->setName($translationMap[$english]);
         }
         $outputMap[] = $currency;
      }

      // Use the map to convert the currency list to the new locale
      $ofn = 'locale/' . $this->locale . '/currencies.xml';
      $oh = fopen($ofn, 'w');
      if (!$oh) die ("Unable to $ofn for writing.\n");

      fwrite($oh, '<?xml version="1.0" encoding="UTF-8"?>

<!--
  * currencies.xml
  *
  * Copyright (c) 2003-2008 John Willinsky
  * Distributed under the GNU GPL v2. For full terms see the file docs/COPYING.
  *
  * Localized list of currencies.
  *
  * $Id: poToCurrencies.php,v 1.3 2008/07/01 01:16:14 asmecher Exp $
  -->

<!DOCTYPE currencies [
   <!ELEMENT currencies (currency+)>
      <!ATTLIST currencies
         locale CDATA #REQUIRED>
   <!ELEMENT currency EMPTY>
      <!ATTLIST currency
         code_alpha CDATA #REQUIRED
         code_numeric CDATA #REQUIRED
         name CDATA #REQUIRED>
]>

<currencies locale="' . $this->locale . "\">\n");
      foreach ($outputMap as $currency) {
         fwrite($oh, "  <currency name=\"" . $currency->getName() . "\" code_alpha=\"" . $currency->getCodeAlpha() . "\" code_numeric=\"" . $currency->getCodeNumeric() . "\" />\n");
      }

      fwrite($oh, "</currencies>");
      fclose($oh);
   }
}

$tool = &new poToCurrencies(isset($argv) ? $argv : array());
$tool->execute();

?>

---