<?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.

 */

/**

 * SYNOPSIS OF PLUGIN FRAMEWORK

 *

 * The new plugin manager is making an alternative approach to managing plugin files by allowing metadata to be embedded in them

 * or optionally included from external files. This method is API- and format-compatible with old plugins. The change is being

 * made because we believe this will provide greater flexibility within plugin files.

 * 

 * Plugin files can contain one or more specially formatted comment blocks with metadata, language strings, and installation or

 * upgrade SQL schemas. For this to work, plugins need to define their version numbers in an Enano-readable and standardized

 * format, and we think the best way to do this is with JSON. It is important that plugins define both the current version and

 * a list of all past versions, and then have upgrade sections telling which version they go from and which one they go to.

 * 

 * The format for the special comment blocks is:

 <code>

 /**!blocktype( param1 = "value1"; [ param2 = "value2"; ... ] )**

 ... block content ...

 **!* / (remove that last space)

 </code>

 * The format inside blocks varies. Metadata and language strings will be in JSON; installation and upgrade schemas will be in

 * SQL. You can include an external file into a block using the following syntax inside of a block:

 <code>

 !include "path/to/file"

 </code>

 * The file will always be relative to the Enano root. So if your plugin has a language file in ENANO_ROOT/plugins/fooplugin/,

 * you would use "plugins/fooplugin/language.json".

 *

 * The format for plugin metadata is as follows:

 <code>

 /**!info**

 {

   "Plugin Name" : "Foo plugin",

   "Plugin URI" : "http://fooplugin.enanocms.org/",

   "Description" : "Some short descriptive text",

   "Author" : "John Doe",

   "Version" : "0.1",

   "Author URI" : "http://yourdomain.com/",

   "Version list" : [ "0.1-alpha1", "0.1-alpha2", "0.1-beta1", "0.1" ]

 }

 **!* /

 </code>

 * This is the format for language data:

 <code>

 /**!language**

 {

   // each entry at this level should be an ISO-639-1 language code.

   eng: {

     // from here on in is the standard langauge file format

     categories: [ 'meta', 'foo', 'bar' ],

     strings: {

       meta: {

         foo: "Foo strings",

         bar: "Bar strings"

       },

       foo: {

         string_name: "string value",

         string_name_2: "string value 2"

       }

     }

   }

 }

 **!* / (once more, remove the space in there)

 </code>

 * Here is the format for installation schemas:

 <code>

 /**!install**

 CREATE TABLE {{TABLE_PREFIX}}foo_table(

   ...

 )

 **!* /

 </code>

 * And finally, the format for upgrade schemas:

 <code>

 /**!upgrade from = "0.1-alpha1"; to = "0.1-alpha2"; **

 **!* /

 </code>

 * As a courtesy to your users, we ask that you also include an "uninstall" block that reverses any changes your plugin makes

 * to the database upon installation. The syntax is identical to that of the install block.

 * 

 * Remember that upgrades will always be done incrementally, so if the user is upgrading 0.1-alpha2 to 0.1, Enano's plugin

 * engine will run the 0.1-alpha2 to 0.1-beta1 upgrader, then the 0.1-beta1 to 0.1 upgrader, going by the versions listed in

 * the example metadata block above. As with the standard Enano installer, prefixing a query with '@' will cause it to be

 * performed "blindly", e.g. not checked for errors.

 * 

 * All of this information is effective as of Enano 1.1.4.

 */

// Plugin manager "2.0"

function page_Admin_PluginManager()

{

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

  global $lang, $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;

  }

  $plugin_list = $plugins->get_plugin_list(null, false);

  // Are we processing an AJAX request from the smartform?

  if ( $paths->getParam(0) == 'action.json' )

  {

    // Set to application/json to discourage advertisement scripts

    header('Content-Type: text/javascript');

    // Init return data

    $return = array('mode' => 'error', 'error' => 'undefined');

    // Start parsing process

    try

    {

      // Is the request properly sent on POST?

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

      {

        // Try to decode the request

        $request = enano_json_decode($_POST['r']);

        // Is the action to perform specified?

        if ( isset($request['mode']) )

        {

          switch ( $request['mode'] )

          {

            case 'install':

              // did they specify a plugin to operate on?

              if ( !isset($request['plugin']) )

              {

                $return = array(

                  'mode' => 'error',

                  'error' => 'No plugin specified.',

                );

                break;

              }

              if ( !isset($request['install_confirmed']) )

              {

                if ( $plugins->is_file_auth_plugin($request['plugin']) )

                {

                  $return = array(

                    'confirm_title' => 'acppl_msg_confirm_authext_title',

                    'confirm_body' => 'acppl_msg_confirm_authext_body',

                    'need_confirm' => true,

                    'success' => false

                  );

                  break;

                }

              }

              $return = $plugins->install_plugin($request['plugin'], $plugin_list);

              break;

            case 'upgrade':

              // did they specify a plugin to operate on?

              if ( !isset($request['plugin']) )

              {

                $return = array(

                  'mode' => 'error',

                  'error' => 'No plugin specified.',

                );

                break;

              }

              $return = $plugins->upgrade_plugin($request['plugin'], $plugin_list);

              break;

            case 'reimport':

              // did they specify a plugin to operate on?

              if ( !isset($request['plugin']) )

              {

                $return = array(

                  'mode' => 'error',

                  'error' => 'No plugin specified.',

                );

                break;

              }

              $return = $plugins->reimport_plugin_strings($request['plugin'], $plugin_list);

              break;

            case 'uninstall':

              // did they specify a plugin to operate on?

              if ( !isset($request['plugin']) )

              {

                $return = array(

                  'mode' => 'error',

                  'error' => 'No plugin specified.',

                );

                break;

              }

              $return = $plugins->uninstall_plugin($request['plugin'], $plugin_list);

              break;

            case 'disable':

            case 'enable':

              // We're not in demo mode. Right?

              if ( defined('ENANO_DEMO_MODE') )

              {

                $return = array(

                    'mode' => 'error',

                    'error' => $lang->get('acppl_err_demo_mode')

                  );

                break;

              }

              $flags_col = ( $request['mode'] == 'disable' ) ?

                            "plugin_flags | "  . PLUGIN_DISABLED :

                            "plugin_flags & ~" . PLUGIN_DISABLED;

              // did they specify a plugin to operate on?

              if ( !isset($request['plugin']) )

              {

                $return = array(

                  'mode' => 'error',

                  'error' => 'No plugin specified.',

                );

                break;

              }

              // is the plugin in the directory and already installed?

              if ( !isset($plugin_list[$request['plugin']]) || (

                  isset($plugin_list[$request['plugin']]) && !$plugin_list[$request['plugin']]['installed']

                ))

              {

                $return = array(

                  'mode' => 'error',

                  'error' => 'Invalid plugin specified.',

                );

                break;

              }

              // get plugin id

              $dataset =& $plugin_list[$request['plugin']];

              if ( empty($dataset['plugin id']) )

              {

                $return = array(

                  'mode' => 'error',

                  'error' => 'Couldn\'t retrieve plugin ID.',

                );

                break;

              }

              // log action

              $time        = time();

              $ip_db       = $db->escape($_SERVER['REMOTE_ADDR']);

              $username_db = $db->escape($session->username);

              $file_db     = $db->escape($request['plugin']);

              // request['mode'] is TRUSTED - the case statement will only process if it is one of {enable,disable}.

              $q = $db->sql_query('INSERT INTO '.table_prefix."logs(log_type, action, time_id, edit_summary, author, page_text) VALUES\n"

                                . "  ('security', 'plugin_{$request['mode']}', $time, '$ip_db', '$username_db', '$file_db');");

              if ( !$q )

                $db->_die();

              // perform update

              $q = $db->sql_query('UPDATE ' . table_prefix . "plugins SET plugin_flags = $flags_col WHERE plugin_id = {$dataset['plugin id']};");

              if ( !$q )

                $db->die_json();

              $cache->purge('plugins');

              $return = array(

                'success' => true

              );

              break;

            case 'import':

              // import all of the plugin_* config entries

              $q = $db->sql_query('SELECT config_name, config_value FROM ' . table_prefix . "config WHERE config_name LIKE 'plugin_%';");

              if ( !$q )

                $db->die_json();

              while ( $row = $db->fetchrow($q) )

              {

                $plugin_filename = preg_replace('/^plugin_/', '', $row['config_name']);

                if ( isset($plugin_list[$plugin_filename]) && !@$plugin_list[$plugin_filename]['installed'] )

                {

                  $return = $plugins->install_plugin($plugin_filename, $plugin_list);

                  if ( !$return['success'] )

                    break 2;

                  if ( $row['config_value'] == '0' )

                  {

                    $fn_db = $db->escape($plugin_filename);

                    $e = $db->sql_query('UPDATE ' . table_prefix . "plugins SET plugin_flags = plugin_flags | " . PLUGIN_DISABLED . " WHERE plugin_filename = '$fn_db';");

                    if ( !$e )

                      $db->die_json();

                  }

                }

              }

              $db->free_result($q);

              $q = $db->sql_query('DELETE FROM ' . table_prefix . "config WHERE config_name LIKE 'plugin_%';");

              if ( !$q )

                $db->die_json();

              $return = array('success' => true);

              break;

            default:

              // The requested action isn't something this script knows how to do

              $return = array(

                'mode' => 'error',

                'error' => 'Unknown mode "' . $request['mode'] . '" sent in request'

              );

              break;

          }

        }

        else

        {

          // Didn't specify action

          $return = array(

            'mode' => 'error',

            'error' => 'Missing key "mode" in request'

          );

        }

      }

      else

      {

        // Didn't send a request

        $return = array(

          'mode' => 'error',

          'error' => 'No request specified'

        );

      }

    }

    catch ( Exception $e )

    {

      // Sent a request but it's not valid JSON

      $return = array(

          'mode' => 'error',

          'error' => 'Invalid request - JSON parsing failed'

        );

    }

    echo enano_json_encode($return);

    return true;

  }

  // Sort so that system plugins come last

  ksort($plugin_list);

  $plugin_list_sorted = array();

  foreach ( $plugin_list as $filename => $data )

  {

    if ( !$data['system plugin'] )

    {

      $plugin_list_sorted[$filename] = $data;

    }

  }

  ksort($plugin_list_sorted);

  foreach ( $plugin_list as $filename => $data )

  {

    if ( $data['system plugin'] )

    {

      $plugin_list_sorted[$filename] = $data;

    }

  }

  $plugin_list =& $plugin_list_sorted;

  //

  // Not a JSON request, output normal HTML interface

  //

  // start printing things out

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

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

  ?>

  <div class="tblholder">

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

      <?php

      $rowid = '2';

      foreach ( $plugin_list as $filename => $data )

      {

        // print out all plugins

        $rowid = ( $rowid == '1' ) ? '2' : '1';

        $plugin_name = ( preg_match('/^[a-z0-9_]+$/', $data['plugin name']) ) ? $lang->get($data['plugin name']) : $data['plugin name'];

        $plugin_basics = $lang->get('acppl_lbl_plugin_name', array(

            'plugin' => $plugin_name,

            'author' => $data['author']

          ));

        $color = '';

        $buttons = '';

        if ( $data['system plugin'] )

        {

          $status = $lang->get('acppl_lbl_status_system');

        }

        else if ( $data['installed'] && !( $data['status'] & PLUGIN_DISABLED ) && !( $data['status'] & PLUGIN_OUTOFDATE ) )

        {

          // this plugin is all good

          $color = '_green';

          $status = $lang->get('acppl_lbl_status_installed');

          $buttons = 'reimport|uninstall|disable';

        }

        else if ( $data['installed'] && $data['status'] & PLUGIN_OUTOFDATE )

        {

          $color = '_red';

          $status = $lang->get('acppl_lbl_status_need_upgrade');

          $buttons = 'uninstall|upgrade';

        }

        else if ( $data['installed'] && $data['status'] & PLUGIN_DISABLED )

        {

          $color = '_red';

          $status = $lang->get('acppl_lbl_status_disabled');

          $buttons = 'uninstall|enable';

        }

        else

        {

          $color = '_red';

          $status = $lang->get('acppl_lbl_status_uninstalled');

          $buttons = 'install';

        }

        $uuid = md5($data['plugin name'] . $data['version'] . $filename);

        $desc = ( preg_match('/^[a-z0-9_]+$/', $data['description']) ) ? $lang->get($data['description']) : $data['description'];

        $desc = sanitize_html($desc);

        $additional = '';

        // filename

        $additional .= '<b>' . $lang->get('acppl_lbl_filename') . '</b> ' . "{$filename}<br />";

        // plugin's site

        $data['plugin uri'] = htmlspecialchars($data['plugin uri']);

        $additional .= '<b>' . $lang->get('acppl_lbl_plugin_site') . '</b> ' . "<a href=\"{$data['plugin uri']}\">{$data['plugin uri']}</a><br />";

        // author's site

        $data['author uri'] = htmlspecialchars($data['author uri']);

        $additional .= '<b>' . $lang->get('acppl_lbl_author_site') . '</b> ' . "<a href=\"{$data['author uri']}\">{$data['author uri']}</a><br />";

        // version

        $additional .= '<b>' . $lang->get('acppl_lbl_version') . '</b> ' . "{$data['version']}<br />";

        // installed version

        if ( $data['status'] & PLUGIN_OUTOFDATE )

        {

          $additional .= '<b>' . $lang->get('acppl_lbl_installed_version') . '</b> ' . "{$data['version installed']}<br />";

        }

        // build list of buttons

        $buttons_html = '';

        if ( !empty($buttons) )

        {

          $filename_js = addslashes($filename);

          $buttons = explode('|', $buttons);

          $colors = array(

              'install' => 'green',

              'disable' => 'blue',

              'enable' => 'blue',

              'upgrade' => 'green',

              'uninstall' => 'red',

              'reimport' => 'green'

            );

          foreach ( $buttons as $button )

          {

            $btnface = $lang->get("acppl_btn_$button");

            $buttons_html .= "<a href=\"#\" onclick=\"ajaxPluginAction('$button', '$filename_js', this); return false;\" class=\"abutton_{$colors[$button]} abutton\">$btnface</a>\n";

          }

        }

        echo "<tr>

                <td class=\"row{$rowid}$color\">

                  <div style=\"float: right;\">

                    <b>$status</b>

                  </div>

                  <div style=\"cursor: pointer;\" onclick=\"if ( !this.fx ) { load_component('jquery'); load_component('jquery-ui'); load_component('messagebox'); load_component('ajax'); this.fx = true; } $('#plugininfo_$uuid').toggle('blind', {}, 500);\">

                    $plugin_basics

                  </div>

                  <span class=\"menuclear\"></span>

                  <div id=\"plugininfo_$uuid\" style=\"display: none;\">

                    $desc

                    <div style=\"padding: 5px;\">

                      $additional

                      <div style=\"float: right; position: relative; top: -10px;\">

                        $buttons_html

                      </div>

                      <span class=\"menuclear\"></span>

                    </div>

                  </div>

                </td>

              </tr>";

      }

      ?>

    </table>

  </div>

  <?php

  // are there still old style plugin entries?

  $q = $db->sql_query('SELECT 1 FROM ' . table_prefix . "config WHERE config_name LIKE 'plugin_%';");

  if ( !$q )

    $db->_die();

  $count = $db->numrows();

  $db->free_result($q);

  if ( $count > 0 )

  {

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