<?php

/*

 * Enano - an open-source CMS capable of wiki functions, Drupal-like sidebar blocks, and everything in between

 * Copyright (C) 2006-2009 Dan Fuhry

 *

 * This program is Free Software; you can redistribute and/or modify it under the terms of the GNU General Public License

 * as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

 *

 * This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied

 * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for details.

 */

function page_Admin_LangManager()

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  global $lang;

  global $cache;

  if ( $session->auth_level < USER_LEVEL_ADMIN || $session->user_level < USER_LEVEL_ADMIN )

  {

    $login_link = makeUrlNS('Special', 'Login/' . $paths->nslist['Special'] . 'Administration', 'level=' . USER_LEVEL_ADMIN, true);

    echo '<h3>' . $lang->get('adm_err_not_auth_title') . '</h3>';

    echo '<p>' . $lang->get('adm_err_not_auth_body', array( 'login_link' => $login_link )) . '</p>';

    return;

  }

  if ( isset($_POST['action']) )

  {

    $action =& $_POST['action'];

    // Parse parameters

    if ( strpos($action, ';') )

    {

      // Parameter section

      $parms = substr($action, strpos($action, ';') + 1);

      // Action name section

      $action = substr($action, 0, strpos($action, ';'));

      // Match all parameters

      preg_match_all('/([a-z0-9_]+)=(.+?)(;|$)/', $parms, $matches);

      $parms = array();

      // For each full parameter, assign $parms an associative value

      foreach ( $matches[0] as $i => $_ )

      {

        $parm = $matches[2][$i];

        // Is this parameter in the form of an integer?

        // (designed to ease validation later)

        if ( ctype_digit($parm) )

          // Yes, run intval(), this enabling is_int()-ish checks

          $parm = intval($parm);

        $parms[$matches[1][$i]] = $parm;

      }

    }

    switch ( $action )

    {

      case 'install_language':

        if ( defined('ENANO_DEMO_MODE') )

        {

          echo '<div class="error-box">' . $lang->get('acplm_err_lang_install_demo') . '</div>';

          break;

        }

        $lang_list = list_available_languages();

        // Verify that we have this language's metadata

        if ( isset($lang_list[@$parms['iso639']]) )

        {

          // From here it's all downhill :-)

          $lang_code =& $parms['iso639'];

          $lang_data =& $lang_list[$lang_code];

          $result = install_language($lang_code, $lang_data['name_eng'], $lang_data['name']);

          if ( $result )

          {

            // Language installed. Import the language files.

            $lang_local = new Language($lang_code);

            if ( file_exists(ENANO_ROOT . "/language/{$lang_data['dir']}/backup.json") )

            {

              $lang_local->import(ENANO_ROOT . "/language/{$lang_data['dir']}/backup.json");

            }

            else

            {

              foreach ( array('core', 'admin', 'tools', 'user') as $file )

              {

                $lang_local->import(ENANO_ROOT . "/language/{$lang_data['dir']}/$file.json");

              }

            }

            unset($lang_local);

            echo '<div class="info-box">' . $lang->get('acplm_msg_lang_install_success', array('lang_name' => htmlspecialchars($lang_data['name_eng']))) . '</div>';

          }

        }

        break;

      case 'modify_language':

        $lang_id =& $parms['lang_id'];

        if ( !is_int($lang_id) )

        {

          echo 'Hacking attempt';

          break;

        }

        if ( isset($parms['finish']) && !empty($_POST['lang_name_native']) && !empty($_POST['lang_name_english']) && !defined('ENANO_DEMO_MODE') )

        {

          // We just did validation above, it's safe to save.

          $name_native = $db->escape($_POST['lang_name_native']);

          $name_english = $db->escape($_POST['lang_name_english']);

          $q = $db->sql_query('UPDATE ' . table_prefix . "language SET lang_name_native = '$name_native', lang_name_default = '$name_english' WHERE lang_id = $lang_id;");

          if ( !$q )

            $db->_die();

          echo '<div class="info-box">' . $lang->get('acplm_msg_basic_save_success') . '</div>';

        }

        else if ( isset($parms['finish']) && defined('ENANO_DEMO_MODE') )

        {

          echo '<div class="error-box">' . $lang->get('acplm_err_lang_install_demo') . '</div>';

        }

        // Select language data

        $q = $db->sql_query('SELECT lang_name_native, lang_name_default, lang_code FROM ' . table_prefix . "language WHERE lang_id = $lang_id;");

        if ( !$q )

          $db->_die();

        list($name_native, $name_english, $lang_code) = $db->fetchrow_num();

        // Output properties table

        echo '<h3>' . $lang->get('acplm_heading_modify') . '</h3>';

        acp_start_form();

        ?>

          <div class="tblholder">

            <table border="0" cellspacing="1" cellpadding="4">

              <tr>

                <th colspan="2">

                  <?php

                    echo $lang->get('acplm_th_lang_basic');

                  ?>

                </th>

              </tr>

              <tr>

              <td class="row2" style="width: 50%;">

                  <?php

                    echo str_replace('"', '', $lang->get('acplm_field_lang_name_native'));

                  ?>

                </td>

                <td class="row1">

                  <input type="text" name="lang_name_native" value="<?php echo htmlspecialchars($name_native); ?>" />

                </td>

              </tr>

              <tr>

                <td class="row2">

                  <?php

                    echo $lang->get('acplm_field_lang_name_english');

                  ?>

                </td>

                <td class="row1">

                  <input type="text" name="lang_name_english" value="<?php echo htmlspecialchars($name_english); ?>" />

                </td>

              </tr>

              <tr>

                <td class="row2">

                  <?php

                    echo $lang->get('acplm_field_lang_code') . '<br />'

                       . '<small>' . $lang->get('acplm_field_lang_code_hint') . '</small>';

                  ?>

                </td>

                <td class="row1">

                  <?php

                    echo $lang_code;

                  ?>

                </td>

              </tr>

              <tr>

                <th class="subhead" colspan="2">

                  <button name="action" value="modify_language;finish=1;lang_id=<?php echo $lang_id; ?>"><?php echo $lang->get('etc_save_changes'); ?></button>

                </th>

              </tr>

            </table>

          </div>

        </form>

        <?php

        acp_start_form();

        ?>

        <h3><?php echo $lang->get('acplm_heading_edit_strings_portal'); ?></h3>

        <p><?php echo $lang->get('acplm_msg_edit_strings_portal_intro'); ?></p>

        <p>

        <?php

        // Grab a Language object

        if ( $lang->lang_id == $lang_id )

        {

          $lang_local =& $lang;

        }

        else

        {

          $lang_local = new Language($lang_id);

          $lang_local->fetch();

        }

        $categories_loc = array();

        // Using the & here ensures that a reference is created, thus avoiding wasting memory

        foreach ( $lang_local->strings as $cat => &$_ )

        {

          unset($_);

          $categories_loc[$cat] = htmlspecialchars($lang->get("meta_$cat"));

        }

        asort($categories_loc);

        echo '<select name="cat_id">';

        foreach ( $categories_loc as $cat_id => $cat_name)

        {

          echo "<option value=\"$cat_id\">$cat_name</option>";

        }

        echo '</select>';

        ?>

        <button name="action" value="edit_strings;lang_id=<?php echo $lang_id; ?>">

          <?php echo $lang->get('acplm_btn_edit_strings_portal'); ?>

        </button>

        </p>

        <h3><?php echo $lang->get('acplm_heading_reimport_portal'); ?></h3>

        <p><?php echo $lang->get('acplm_msg_reimport_portal_intro'); ?></p>

        <p>

          <button name="action" value="reimport;iso639=<?php echo $lang_code; ?>;lang_id=<?php echo $lang_id; ?>">

            <?php echo $lang->get('acplm_btn_reimport'); ?>

          </button>

        </p>

        </form>

        <?php

        echo '<h3>' . $lang->get('acplm_heading_backup') . '</h3>';

        echo '<p>' . $lang->get('acplm_backup_intro') . '</p>';

        echo '<form action="' . makeUrlNS('Admin', 'LangManager') . '" method="post">';

        echo '<button name="action" value="backup_language;lang_id=' . $lang_id . '">' . $lang->get('acplm_btn_create_backup') . '</button>';

        echo '</form>';

        return true;

      case 'edit_strings':

        $cat_id = @$_POST['cat_id'];

        if ( !preg_match('/^[a-z0-9]+$/', $cat_id) || !is_int(@$parms['lang_id']) )

          break;

        $lang_id =& $parms['lang_id'];

        if ( isset($parms['save']) && !defined('ENANO_DEMO_MODE') )

        {

          // Grab a Language object

          if ( $lang->lang_id == $lang_id )

          {

            $lang_local =& $lang;

          }

          else

          {

            $lang_local = new Language($lang_id);

          }

          // Main save loop

          // Trying to minimize queries as much as possible here, but you know how that goes.

          $count_upd = 0;

          foreach ( $_POST['string'] as $string_id => $user_content )

          {

            $curr_content = $lang_local->get_uncensored("{$cat_id}_{$string_id}");

            if ( $curr_content != $user_content )

            {

              $count_upd++;

              $user_content = $db->escape($user_content);

              $string_id = $db->escape($string_id);

              $q = $db->sql_query('UPDATE ' . table_prefix . "language_strings SET string_content = '$user_content' WHERE lang_id = $lang_id AND string_category = '$cat_id' AND string_name = '$string_id';");

              if ( !$q )

                $db->_die();

            }

          }

          if ( $count_upd > 0 )

          {

            // Update the cache

            $lang_local->regen_caches();

            // Update modification time

            $q = $db->sql_query('UPDATE ' . table_prefix . "language SET last_changed = " . time() . " WHERE lang_id = $lang_id;");

            if ( !$q )

              $db->_die();

          }

          echo '<div class="info-box">' . $lang->get('acplm_msg_string_save_success') . '</div>';

        }

        else if ( isset($parms['save']) && defined('ENANO_DEMO_MODE') )

        {

          echo '<div class="error-box">' . $lang->get('acplm_err_lang_install_demo') . '</div>';

        }

        acp_start_form();

        $cat_name = $lang->get("meta_$cat_id");

        echo '<h3>' . $lang->get('acplm_editor_heading', array('cat_name' => $cat_name)) . '</h3>';

        // Fetch all strings

        // This is more efficient than iterating through $lang->strings, I think.

        $q = $db->sql_query('SELECT string_id, string_name, string_content FROM ' . table_prefix . "language_strings WHERE string_category = '$cat_id' AND lang_id = $lang_id;");

        if ( !$q )

          $db->_die();

        ?>

        <div class="tblholder">

          <table border="0" cellspacing="1" cellpadding="4">

            <tr>

              <th style="width: 3%;"><?php echo $lang->get('acplm_editor_col_string_name'); ?></th>

              <th><?php echo $lang->get('acplm_editor_col_string_content'); ?></th>

            </tr>

        <?php

        while ( $row = $db->fetchrow_num() )

        {

          list($string_id, $string_name, $string_content) = $row;

          unset($row);

          echo '<tr>';

          if ( strpos($string_content, "\n") )

          {

            $editor = '<textarea rows="' . get_line_count($string_content) . '" cols="50" style="width: 99%;" ';

            $editor .= 'name="string[' . htmlspecialchars($string_name) . ']" ';

            $editor .= '>' . htmlspecialchars($string_content);

            $editor .= '</textarea>';

          }

          else

          {

            $editor = '<input type="text" size="50" style="width: 99%;" ';

            $editor .= 'name="string[' . htmlspecialchars($string_name) . ']" ';

            $editor .= 'value="' . htmlspecialchars($string_content) . '" ';

            $editor .= '/>';

          }

          echo '<td class="row2">' . htmlspecialchars($string_name) . '</td>';

          echo '<td class="row1">' . $editor . '</td>';

          echo '</tr>';

          echo "\n";

        }

        echo '<tr>

                <th class="subhead" colspan="2">';

        echo '<input type="hidden" name="cat_id" value="' . $cat_id . '" />';

        // Button: save

        echo '<button name="action" value="edit_strings;lang_id=' . $lang_id . ';save=1" style="font-weight: bold;">' . $lang->get('etc_save_changes') . '</button> ';

        // Button: revert

        echo '<button name="action" value="edit_strings;lang_id=' . $lang_id . '" style="font-weight: normal;">' . $lang->get('acplm_editor_btn_revert') . '</button> ';

        // Button: cancel

        echo '<button name="action" value="modify_language;lang_id=' . $lang_id . '" style="font-weight: normal;">' . $lang->get('acplm_editor_btn_cancel') . '</button>';

        echo '  </th>

              </tr>';

        ?>

          </table>

        </div>

        <?php

        echo '</form>';

        return true;

      case 'reimport':

        if ( !isset($parms['iso639']) || !is_int(@$parms['lang_id']) )

          break;

        if ( defined('ENANO_DEMO_MODE') )

        {

          echo '<div class="error-box">' . $lang->get('acplm_err_lang_install_demo') . '</div>';

          break;

        }

        $lang_code =& $parms['iso639'];

        $lang_id =& $parms['lang_id'];

        $lang_list = list_available_languages();

        if ( !isset($lang_list[$lang_code]) )

          break;

        // Grab a Language object

        if ( $lang->lang_id == $lang_id )

        {

          $lang_local =& $lang;

        }

        else

        {

          $lang_local = new Language($lang_id);

        }

        $lang_data =& $lang_list[$lang_code];

        // This is the big re-import loop

        if ( file_exists(ENANO_ROOT . "/language/{$lang_data['dir']}/backup.json") )

        {

          $lang_local->import(ENANO_ROOT . "/language/{$lang_data['dir']}/backup.json");

        }

        else

        {

          foreach ( array('core', 'admin', 'tools', 'user') as $file )

          {

            $lang_local->import(ENANO_ROOT . "/language/{$lang_data['dir']}/$file.json");

          }

        }

        echo '<div class="info-box">' . $lang->get('acplm_msg_reimport_success') . '</div>';

        break;

      case 'backup_language':

        if ( !is_int(@$parms['lang_id']) )

          break;

        $lang_id =& $parms['lang_id'];

        // Grab a Language object

        if ( $lang->lang_id == $lang_id )

        {

          $lang_local =& $lang;

        }

        else

        {

          $lang_local = new Language($lang_id);

        }

        $filename = 'enano_lang_' . $lang_local->lang_code . '_' . enano_date('ymd') . '.json';

        // Free as much memory as possible

        $db->close();

        unset($GLOBALS['session'], $GLOBALS['paths'], $GLOBALS['template'], $GLOBALS['plugins']);

        // HTTP headers

        header('Content-type: application/json');

        header('Content-disposition: attachment; filename=' . $filename);

        // Export to JSON

        $lang_struct = array(

            'categories' => array_keys($lang_local->strings),

            'strings' => $lang_local->strings

          );

        $lang_struct = enano_json_encode($lang_struct);

        header('Content-length: ' . strlen($lang_struct));

        echo $lang_struct;

        exit;

      case 'uninstall_language':

        if ( !is_int(@$parms['lang_id']) )

          break;

        if ( defined('ENANO_DEMO_MODE') )

        {

          echo '<div class="error-box">' . $lang->get('acplm_err_lang_install_demo') . '</div>';

          break;

        }

        $lang_id =& $parms['lang_id'];

        if ( isset($parms['confirm']) )

        {

          $lang_default = intval(getConfig('default_language'));

          if ( $lang_default == $lang_id )

          {

            echo '<div class="error-box">' . $lang->get('acplm_err_cant_uninstall_default') . '</div>';

            break;

          }

          if ( $lang_id == $lang->lang_id )

          {

            // Unload the current language since it's about to be uninstalled

            unset($lang, $GLOBALS['lang']);

            $GLOBALS['lang'] = new Language($lang_default);

            global $lang;

          }

          // We're clear

          // Remove cache files

          $cache_file = ENANO_ROOT . "/cache/lang_{$lang_id}.php";

          if ( file_exists($cache_file) )

            @unlink($cache_file);

          $cache->purge("lang_{$lang_id}");