<?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_UserRanks()
{
  global $db, $session, $paths, $template, $plugins; // Common objects
  global $lang;
  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;
  }
  
  // This should be a constant somewhere
  $protected_ranks = array(
      RANK_ID_MEMBER,
      RANK_ID_MOD,
      RANK_ID_ADMIN,
      RANK_ID_GUEST
    );
  
  if ( $paths->getParam(0) == 'action.json' )
  {
    // ajax call, try to decode json request
    header('Content-type: application/json');
    
    if ( !isset($_POST['r']) )
    {
      echo enano_json_encode(array(
          'mode' => 'error',
          'error' => 'Missing JSON request payload'
        ));
      return true;
    }
    try
    {
      $request = enano_json_decode($_POST['r']);
    }
    catch ( Exception $e )
    {
      echo enano_json_encode(array(
          'mode' => 'error',
          'error' => 'Invalid JSON request payload'
        ));
      return true;
    }
    
    if ( !isset($request['mode']) )
    {
      echo enano_json_encode(array(
          'mode' => 'error',
          'error' => 'JSON request payload does not contain required parameter "mode"'
        ));
      return true;
    }
    
    // we've got it
    switch ( $request['mode'] )
    {
      case 'get_rank':
        // easy enough, get a rank from the DB
        $rank_id = intval(@$request['rank_id']);
        if ( empty($rank_id) )
        {
          echo enano_json_encode(array(
              'mode' => 'error',
              'error' => 'Missing rank ID'
            ));
          return true;
        }
        // query and fetch
        $q = $db->sql_query('SELECT rank_id, rank_title, rank_style FROM ' . table_prefix . "ranks WHERE rank_id = $rank_id;");
        if ( !$q || $db->numrows() < 1 )
          $db->die_json();
        
        $row = $db->fetchrow();
        $db->free_result();
        
        // why does mysql do this?
        $row['rank_id'] = intval($row['rank_id']);
        echo enano_json_encode($row);
        break;
      case 'save_rank':
        // easy enough, get a rank from the DB
        $rank_id = intval(@$request['rank_id']);
        // note - an empty rank_style field is permitted
        if ( empty($rank_id) )
        {
          echo enano_json_encode(array(
              'mode' => 'error',
              'error' => 'Missing rank ID'
            ));
          return true;
        }
        
        if ( empty($request['rank_title']) )
        {
          echo enano_json_encode(array(
              'mode' => 'error',
              'error' => $lang->get('acpur_err_missing_rank_title')
            ));
          return true;
        }
        
        // perform update
        $rank_title = $db->escape($request['rank_title']);
        $rank_style = $db->escape(@$request['rank_style']);
        $q = $db->sql_query('UPDATE ' . table_prefix . "ranks SET rank_title = '$rank_title', rank_style = '$rank_style' WHERE rank_id = $rank_id;");
        
        // regenerate the ranks cache
        generate_cache_userranks();
        
        echo enano_json_encode(array(
            'mode' => 'success'
          ));
        break;
      case 'create_rank':
        if ( empty($request['rank_title']) )
        {
          echo enano_json_encode(array(
              'mode' => 'error',
              'error' => $lang->get('acpur_err_missing_rank_title')
            ));
          return true;
        }
        
        $rank_title = $db->escape($request['rank_title']);
        $rank_style = $db->escape(@$request['rank_style']);
        
        // perform insert
        $q = $db->sql_query('INSERT INTO ' . table_prefix . "ranks ( rank_title, rank_style ) VALUES\n"
                          . "  ( '$rank_title', '$rank_style' );");
        if ( !$q )
          $db->die_json();
        
        $rank_id = $db->insert_id();
        if ( !$rank_id )
        {
          echo enano_json_encode(array(
              'mode' => 'error',
              'error' => 'Refetch of rank ID failed'
            ));
          return true;
        }
        
        // regenerate the ranks cache
        generate_cache_userranks();
        
        echo enano_json_encode(array(
            'mode' => 'success',
            'rank_id' => $rank_id
          ));
        break;
      case 'delete_rank':
        // nuke a rank
        $rank_id = intval(@$request['rank_id']);
        if ( empty($rank_id) )
        {
          echo enano_json_encode(array(
              'mode' => 'error',
              'error' => 'Missing rank ID'
            ));
          return true;
        }
        
        // is this rank protected (e.g. a system rank)?
        if ( in_array($rank_id, $protected_ranks) )
        {
          echo enano_json_encode(array(
              'mode' => 'error',
              'error' => $lang->get('acpur_err_cant_delete_system_rank')
            ));
          return true;
        }
        
        // unset any user and groups that might be using it
        $q = $db->sql_query('UPDATE ' . table_prefix . "users SET user_rank = NULL WHERE user_rank = $rank_id;");
        if ( !$q )
          $db->die_json();
        $q = $db->sql_query('UPDATE ' . table_prefix . "groups SET group_rank = NULL WHERE group_rank = $rank_id;");
        if ( !$q )
          $db->die_json();
        
        // now remove the rank itself
        $q = $db->sql_query('DELETE FROM ' . table_prefix . "ranks WHERE rank_id = $rank_id;");
        if ( !$q )
          $db->_die();
        
        // regenerate the ranks cache
        generate_cache_userranks();
        
        echo enano_json_encode(array(
            'mode' => 'success'
          ));
        break;
      default:
        echo enano_json_encode(array(
          'mode' => 'error',
          'error' => 'Unknown requested operation'
        ));
      return true;
    }
    return true;
  }
  
  // draw initial interface
  // yes, four paragraphs of introduction. Suck it up.
  echo '<h3>' . $lang->get('acpur_heading_main') . '</h3>';
  echo '<p>' . $lang->get('acpur_intro_para1') . '</p>';
  echo '<p>' . $lang->get('acpur_intro_para2') . '</p>';
  echo '<p>' . $lang->get('acpur_intro_para3') . '</p>';
  echo '<p>' . $lang->get('acpur_intro_para4') . '</p>';
  
  // fetch ranks
  $q = $db->sql_query('SELECT rank_id, rank_title, rank_style FROM ' . table_prefix . "ranks ORDER BY rank_title ASC;");
  if ( !$q )
    $db->_die();
  
  echo '<div class="rankadmin-left" id="admin_ranks_container_left">';
  while ( $row = $db->fetchrow() )
  {
    // format rank according to what its users look like
    // rank titles can be stored as language strings, so have the language manager fetch this
    // normally it refetches (which takes time) if a string isn't found, but it won't try to fetch
    // a string that isn't in the category_stringid format
    $rank_title = $lang->get($row['rank_title']);
    // FIXME: make sure htmlspecialchars() is escaping quotes and backslashes
    echo '<a href="#rank_edit:' . $row['rank_id'] . '" onclick="ajaxInitRankEdit(' . $row['rank_id'] . '); return false;" class="rankadmin-editlink" style="' . htmlspecialchars($row['rank_style']) . '" id="rankadmin_editlink_' . $row['rank_id'] . '">' . htmlspecialchars($rank_title) . '</a> ';
  }
  echo '<a href="#rank_create" onclick="ajaxInitRankCreate(); return false;" class="rankadmin-editlink rankadmin-createlink" id="rankadmin_createlink">' . $lang->get('acpur_btn_create_init') . '</a> ';
  echo '</div>';
  
  echo '<div class="rankadmin-right" id="admin_ranks_container_right">';
  echo $lang->get('acpur_msg_select_rank');
  echo '</div>';
  echo '<span class="menuclear"></span>';
}

?>