tools/poToCountries.php

<?php

// $Id: poToCountries.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 poToCountries extends CommandLineTool {
   var $locale;

   var $translationFile;

   function poToCountries($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 ISO3166 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
      $countryDao =& DAORegistry::getDAO('CountryDAO');
      $countries =& $countryDao->getCountries();

      // Generate a map of code => translation
      $outputMap = array();
      foreach ($countries as $code => $english) {
         if (!isset($translationMap[$english])) {
            echo "WARNING: Unknown country \"$english\"! Using English as default.\n";
            $outputMap[$code] = $english;
         } else {
            $outputMap[$code] = $translationMap[$english];
            unset($translationMap[$english]);
         }
      }

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

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

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

<!DOCTYPE countries [
   <!ELEMENT countries (country+)>
   <!ELEMENT country EMPTY>
      <!ATTLIST country
         code CDATA #REQUIRED
         name CDATA #REQUIRED>
]>

<countries>
');
      foreach ($outputMap as $code => $translation) {
         fwrite($oh, "  <country name=\"$translation\" code=\"$code\"/>\n");
      }

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

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

?>

---