modules/smfforum/smfforum.module

<?php
// $Id: smfforum.module,v 1.10 2008/05/31 20:30:53 vb Exp $
/**
 * Copyright 2007-2008 by Vadim G.B. (http://vgb.org.ru)
 */

define('SMF_DRUPAL_MODULE', 'SMFforum');
define('SMF_MODULE_TAG', 'SMFforum');
define('SMF_DRUPAL_MODULE_VERSION', 6);

define('SMF_API_FILE', '/smf_api_2.php');
define('SMF_API_SUBS_FILE', '/smf_api_subs.php');
define('SMF_API_INCLUDE_PATH', '/includes');
define('SMF_PATH', '/smf');
define('SMF_PAGE', 'smfforum');

define('SMF_SYNC_TO_SMF', 'to SMF');
define('SMF_SYNC_TO_DRUPAL', 'to Drupal');
define('SMF_SYNC_TO_MASTER', 'to master');

@define('A_SYNC_TO_UNDEFINED', 0); 
@define('A_SYNC_TO_ME', 1);
@define('A_SYNC_TO_EXTERNAL', 2);
@define('A_SYNC_TO_MASTER', 3);
@define('A_SYNC_TO_FINISHED', -1);

define('SMF_NUM_RECENT_POSTS', 10);
define('SMF_NUM_RECENT_TOPICS', 10);

define('SMF_RECENT_DELIMITER_SPACE', " ");
define('SMF_RECENT_DELIMITER_BR', "<br />");

define('SMF_COOKIELENGTH', 1440);
define('SMF_NUM_WHOS_ONLINE', 9999);
define('SMF_NUM_TOP_POSTERS', 5);

////////////////////////////////////////////////////////////////////////////////
define('SMF_DISABLE_MODULE', 0); // Only use in emergency
define('SMF_DISABLE_AUTO_LOGOUT', 0); // Only use if you are not able to login
define('SMF_MODULE_DEBUG', 0); // Do not change!
////////////////////////////////////////////////////////////////////////////////

global $smf_boarddir, $smf_root_path,
    $site_base_url, $site_smf_page, $site_forum_url, $smf_integration_mode;

_smfforum_set_globals();

function _smfforum_set_globals() {
  global $smf_config, $base_url, $smf_boarddir, $smf_root_path,
    $site_base_url, $site_smf_page, $site_forum_url, $smf_integration_mode;

  $site_base_url = $base_url;
  $site_smf_page =  drupal_get_path_alias(SMF_PAGE);
  $smf_boarddir = $smf_root_path = variable_get('smfforum_root', realpath('.') . SMF_PATH);

  $smf_integration_mode = variable_get("smfforum_page_frame", 0);

  //$smfurl = $smf_config['forum_url'];
  $site_forum_url = $base_url ."/". $site_smf_page;
 
  if (module_exists('a_sync')) {
    variable_set('a_sync_data', 0);
    variable_set('a_sync_module', '');
    
    $_a_sync_inc = dirname(__FILE__) .'/smfforum_a_sync.inc';
    if (file_exists($_a_sync_inc)) {
      require_once($_a_sync_inc);
    }  
  }
  
  /*
  if (module_exists('services')) {
    $_smfforum_service_inc = dirname(__FILE__) .'/smfforum_service.inc';
    if (file_exists($_smfforum_service_inc)) {
      require_once($_smfforum_service_inc);
    }  
  }
  */
}

function _smfforum_get_sync_to($sync) {
  
  $syncto = $sync;  
  if ($sync == SMF_SYNC_TO_MASTER) {
    $master = variable_get('smfforum_master', 1);
    if ($master) {
      $syncto = SMF_SYNC_TO_DRUPAL;
    }  
    else {
      $syncto = SMF_SYNC_TO_SMF;
    }  
  }
  
  if (module_exists('a_sync')) {
    return _smfforum_get_a_sync_to($syncto);
  }  
  
  return $syncto;  
}  

function _smfforum_replace_links($output) {
  global $smf_settings, $base_url;

  $smfurl = $smf_settings['forum_url'];
  $frameurl = $base_url ."/". drupal_get_path_alias(SMF_PAGE);
  $output = str_replace($smfurl, $frameurl, $output);
  // replace back smf images
  $frameurl = '<img src="'. $frameurl;
  $smfurl = '<img src="'. $smfurl;

  $output = str_replace($frameurl, $smfurl, $output);

  return $output;
}

function smfforum_whos_online($top_number = SMF_NUM_WHOS_ONLINE, $output_method = '') {
  global $smf_settings, $smf_user_info, $smf_txt;

  $output = smf_api_whos_online($top_number, $output_method);
  if (variable_get("smfforum_page_frame", 0) == 1)
    $output = _smfforum_replace_links($output);

  return $output;
}

function smfforum_recent_posts($num_recent = SMF_NUM_RECENT_POSTS, $exclude_boards = null, $output_tag = "<ul>", $output_br = "<br />", $output_method = '') {
  global $smf_settings, $smf_user_info, $smf_txt;

  $output = smf_api_recent_posts($num_recent, $exclude_boards, $output_tag, $output_br, $output_method);
  if (variable_get("smfforum_page_frame", 0) == 1)
    $output = _smfforum_replace_links($output);

  return $output;
}

function smfforum_recent_topics($num_recent = SMF_NUM_RECENT_TOPICS, $exclude_boards = null, $output_tag = "<ul>", $output_br = "<br />", $output_method = '') {
  global $smf_settings, $smf_user_info, $smf_txt;

  $output = smf_api_recent_topics($num_recent, $exclude_boards, $output_tag, $output_br, $output_method);
  if (variable_get("smfforum_page_frame", 0) == 1)
    $output = _smfforum_replace_links($output);

  return $output;
}

function smfforum_board_stats($output_method = '') {
  global $smf_settings, $smf_user_info, $smf_txt;

  $output = smf_api_board_stats($output_method);
  if (variable_get("smfforum_page_frame", 0) == 1)
    $output = _smfforum_replace_links($output);

  return $output;
}

function smfforum_pm($output_method = '') {
  global $smf_settings, $smf_user_info, $smf_txt;

  $output = smf_api_pm($output_method);
  if (variable_get("smfforum_page_frame", 0) == 1)
    $output = _smfforum_replace_links($output);

  return $output;
}

function smfforum_topposter($top_number = SMF_NUM_TOP_POSTERS, $output_method = '') {
  global $smf_settings, $smf_user_info, $smf_txt;

  $output = smf_api_topposter($top_number, $output_method);
  if (variable_get("smfforum_page_frame", 0) == 1)
    $output = _smfforum_replace_links($output);

  return $output;
}

function _smfforum_settings() {
  if (SMF_DISABLE_MODULE)
    return false;
  $smf_boarddir = variable_get('smfforum_root', '');
  $smfsettings = $smf_boarddir .'/Settings.php';
  $smfinc = variable_get('smfforum_inc', '');
  $smfapifile = variable_get('smfforum_api_file', SMF_API_FILE);
  $smfapi = $smfinc . $smfapifile;
  $smfapisubs = $smfinc . SMF_API_SUBS_FILE;
  if (file_exists($smfapi) && file_exists($smfapisubs) && file_exists($smfsettings)) {
    require_once($smfapi);
    return true;
  }
  else
    return false;
}

if (SMF_DRUPAL_MODULE_VERSION == 5) {

function smfforum_help($section) {
  $output = '';

  switch ($section) {
    case 'admin/help#smfforum':
      break;
    case 'admin/modules#description':
      $output .= t('This module provides integration with SMF: Simple Machines Forum.');
      break;
  }

  return $output;
}

  function smfforum_menu($maycache) {
    if (variable_get("smfforum_page_frame", 0) == 1) {
      $items[] = array(
        'path' => 'smfforum',
        //'title' => t('SMF Forum'),
        'access' => user_access('access content'),
        //'access' => user_access('access forum'),
        'callback' => 'smfforum_page',
        'type' => MENU_SUGGESTED_ITEM,
        //'type' => MENU_NORMAL_ITEM,
      );
    }
    $items[] = array(
      'path' => 'admin/settings/smfforum',
      'title' => t('SMFforum settings'),
      'description' => t('Change SMFforum integration settings'),
      'callback' => 'drupal_get_form',
      'callback arguments' => 'smfforum_admin_settings',
      'access' => user_access('administer site configuration'),
      'type' => MENU_NORMAL_ITEM,
    );
    return $items;
  }
 
  function smfforum_admin_settings() { // 5.x
    // Only administrators can access this page
    if (!user_access('access administration pages'))
      return message_access();

    $form = _smfforum_admin_settings();
    return system_settings_form($form); // 5.x
  }

/**
 * Implementation of hook_form_alter().
 */
function smfforum_form_alter($form_id, &$form) { // 5.x
  if ($form_id == 'user_login_block' || $form_id == 'user_login') {
    global $smf_settings;
    // Get forum URL
    $scripturl = $smf_settings['forum_url'];
    $smf_master = variable_get('smfforum_master', 1);
    if ($smf_master && !empty($scripturl)) {
      if (variable_get("smfforum_page_frame", 0) == 1) {
        global $base_url;
        $scripturl = $base_url ."/". drupal_get_path_alias(SMF_PAGE);
      }
      $new_account = $scripturl .'?action=register';
      $new_password = $scripturl .'?action=reminder';

      $items = array();
      if (variable_get('user_register', 1)) {
        $items[] = l(t('Create new account'), $new_account, array('title' => t('Create a new user account.')));
      }
      $items[] = l(t('Request new password'), $new_password, array('title' => t('Request new password via e-mail.')));
      $form['links'] = array('#value' => theme('item_list', $items));
    }
  }
  elseif ($form_id == 'user_register') {
  }
}

}
else { // 6.0

function smfforum_help($path, $arg) {
  $output = '';
  switch ($path) {
    case 'admin/help#smfforum':
      break;
    case 'admin/modules#description':
      $output .= t('This module provides integration with SMF: Simple Machines Forum.');
      break;
  }
  return $output;
}

/*
function smfforum_access($op, $node, $account) {
  
  if ($op == 'create') {
    return user_access('create forum topics', $account);
  }

  if ($op == 'update' || $op == 'delete') {
    if (user_access('edit own forum topics', $account) && ($account->uid == $node->uid)) {
      return TRUE;
    }
  }
  
  if ($op == 'view') {
    return user_access('access content');
  }
}


function smfforum_perm() {
  return array('view forum', 'administer_forum', 'moderate_forum');
}
*/

function smfforum_menu() { // 6.0

  $items = array();

  if (variable_get("smfforum_page_frame", 0) == '1') {
    $items['smfforum'] = array(
      //'title' => t('SMF Forum'),
      'page callback' => 'smfforum_page',
      'access callback' => 'user_access',
      'access arguments' => array('access content'),
      'type' => MENU_SUGGESTED_ITEM,
      //'type' => MENU_NORMAL_ITEM,
    );
  }

  $items['admin/settings/smfforum'] = array(
    'title' => t('SMFforum settings'),
    'description' => t('Change SMFforum integration settings'),
    'page callback' => 'drupal_get_form',
    'page arguments' => array('smfforum_admin_settings'),
    'access arguments' => array('administer site configuration'),
    'type' => MENU_NORMAL_ITEM
  );

  return $items;
}

function smfforum_admin_settings() { // 6.x
  $form = _smfforum_admin_settings();
  return system_settings_form($form);
}

/**
 * Implementation of hook_form_alter().
 */
function smfforum_form_alter(&$form, $form_state, $form_id) { // 6.x
  
  if ($form_id == 'user_login_block' || $form_id == 'user_login') {
    $form['#validate'] = smfforum_login_default_validators($form);
    
    global $smf_settings;  
    // Get forum URL
    $scripturl = $smf_settings['forum_url'];
    $smf_master = variable_get('smfforum_master', 1);
    if ($smf_master && !empty($scripturl)) {
      if (variable_get("smfforum_page_frame", 0) == 1) {
        global $base_url;
        $scripturl = $base_url ."/". drupal_get_path_alias(SMF_PAGE);
      }
      $new_account = $scripturl .'?action=register';
      $new_password = $scripturl .'?action=reminder';

      $items = array();
      if (variable_get('user_register', 1)) {
        $items[] = l(t('Create new account'), $new_account, array('title' => t('Create a new user account.')));
      }
      $items[] = l(t('Request new password'), $new_password, array('title' => t('Request new password via e-mail.')));
      $form['links'] = array('#value' => theme('item_list', $items));
    }
  }
  elseif ($form_id == 'user_register') {
  }
  return $form;
}

function smfforum_login_default_validators($form) {
  
  if (module_exists('a_sync')) {
    $module = a_sync_get_module('validators');
    if ($module != '') {
      return $form['#validate'];
    }
    $module1 = SMF_PAGE;
    a_sync_set($module1, 'validators', A_SYNC_TO_FINISHED);
  }
    
  $validators = array();
  
  if (module_exists('logintoboggan')) {
    if (variable_get('logintoboggan_login_with_email', 0)) {
      $validators[] = 'logintoboggan_user_login_validate';
    }  
  }
  
  $validators[] = 'user_login_name_validate';
  $validators[] = 'user_login_authenticate_validate';  
  $validators[] = 'smfforum_login_authenticate_validate'; 

  if (module_exists('a_sync')) {
    foreach (a_sync_get_modules() as $module) {
      if ($module != $module1) {
        $function = $module .'_login_authenticate_validate';
        if (module_exists($module)) {
          $validators[] = $function;      
        }
      }
    }  
  }
  
  if (module_exists('ldapauth')) {
    $validators[] = 'smfforum_ldapauth_login_validate';
  }  
 
  $validators[] = 'user_login_final_validate';
  /*
  if (SMF_MODULE_DEBUG) {
    drupal_set_message('SMF Form validators');
    $message = print_r($validators, true); 
    drupal_set_message($message);  
  }
  */
  return $validators;
}

/**
 * A validate handler on the login form. Check supplied username/password
 * against local users table. If successful, sets the global $user object.
 */
function smfforum_login_authenticate_validate($form, &$form_state) {
  global $user;
  if (!$user->uid) {
    $pass = trim($form_state['values']['pass']);
    if (!empty($pass)) {
      smfforum_external_login_register($form_state['values']['name'], $pass);
      if ($user->uid) {
        user_authenticate_finalize($form_state['values']);
      }
    }
  }
}

if (module_exists('ldap_integration')) {
  function smfforum_ldapauth_login_validate($form, &$form_state) {
    global $user;
    if (!$user->uid) {
      $pass = trim($form_state['values']['pass']);
      if (!empty($pass)) {
        ldapauth_login_validate($form, $form_state);
      }
    }
  }
}

} // 6


function _smfforum_admin_settings() { // 6.x, 5.x

  global $smf_connection, $smf_boarddir, $smf_user_info;
 
  $form = array();
  $form['smfstatus'] = array('#type' => 'fieldset',
    '#title' => t('SMFforum status'),
    '#collapsible' => TRUE,
    '#collapsed' => FALSE);

  $smfapi_exists = false;
  $smfinc = "";

  $smfroot = variable_get('smfforum_root', realpath('.') . SMF_PATH);
  if (empty($smfroot)) {
    $smfroot = realpath('.') . SMF_PATH;
    variable_set('smfforum_root', $smfroot);
  }
  $smfsettings = $smfroot .'/Settings.php';
  $smfapifile = variable_get('smfforum_api_file', SMF_API_FILE);
  if (empty($smfapifile)) {
    $smfapifile = SMF_API_FILE;
    variable_set('smfforum_api_file', $smfapifile);
  }

  if (file_exists($smfsettings)) {
    $smfsettings_exists = true;
    $form['smfstatus']['info3'] = array('#type' => 'markup',
      '#value' => '<div class="ok">'. t('Successfully locating SMF installation.') .'</div>');

    $smf_boarddir = $smfroot;
    $smfinc = variable_get('smfforum_inc', drupal_get_path('module', SMF_PAGE) . SMF_API_INCLUDE_PATH);
    if (empty($smfinc)) {
      $smfinc = drupal_get_path('module', SMF_PAGE) . SMF_API_INCLUDE_PATH;
      variable_set('smfforum_inc', $smfinc);
    }
    $smfapi = $smfinc . $smfapifile;
    $smfapisubs = $smfinc . SMF_API_SUBS_FILE;
    if (file_exists($smfapi) && file_exists($smfapisubs)) {
      $smfapi_exists = true;
    }
    else {
      $smfapi = $smf_boarddir . $smfapifile;
      $smfapisubs = $smf_boarddir . SMF_API_SUBS_FILE;
      if (file_exists($smfapi) && file_exists($smfapisubs)) {
        $smfapi_exists = true;
        $smfinc = $smf_boarddir;
      }
    }
  }
  else {
    $smfsettings_exists = false;
    $form['smfstatus']['info4'] = array('#type' => 'markup',
      '#value' => '<div class="error">'. t('Error locating SMF installation.') .' '. t('Please fix your settings!') .'</div>');
  }

  if ($smfapi_exists) {
    $form['smfstatus']['info1'] = array('#type' => 'markup',
      '#value' => '<div class="ok">'. t('Successfully locating %api.', array('%api' => $smfapi)) .'</div>');
  }
  else {
    $form['smfstatus']['info2'] = array('#type' => 'markup',
      '#value' => '<div class="error">'. t('Error locating %api.', array('%api' => $smfapi)) .' '. t('Please fix your settings!') .'</div>');
  }
/*
  if (SMF_MODULE_DEBUG) {
    global $active_db;
    $message = '0 D = SMF '.$active_db.' == '.$smf_connection;
    drupal_set_message($message);  
  }
*/  
  if ($smfsettings_exists && $smfapi_exists)
    require_once($smfapi);
/*
  if (SMF_MODULE_DEBUG) {
    $message = '1 D = SMF '.$active_db.' == '.$smf_connection;
    drupal_set_message($message);  
  }
*/  
  if ($smf_connection) {
      $form['smfstatus']['info5'] = array('#type' => 'markup',
        '#value' => '<div class="ok">'. t('Successfully connected to the SMF database.') .'</div>');
  }
  else {
    $form['smfstatus']['info6'] = array('#type' => 'markup',
      '#value' => '<div class="error">'. t('Unable to connect to the SMF database.') .' '. t('Please fix your settings!') .'</div>');
  }

  $form['smfsettings'] = array('#type' => 'fieldset',
    '#title' => t('SMF location settings'),
    '#collapsible' => TRUE,
    '#collapsed' => FALSE);

  $form['smfsettings']['smfforum_root'] = array('#type' => 'textfield',
    '#title' => t('SMFforum root'),
    '#maxlength' => '128', '#size' => '60',
    '#default_value' => $smfroot,
    '#description' => t('Path to forum directory. Enter the full directory path where SMF is installed.'));

  if ($smfsettings_exists) {
    $form['smfsettings']['smfforum_inc'] = array('#type' => 'textfield',
      '#title' => t('Path to SMF api file'),
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => $smfinc,
      '#description' => t('Enter the full directory path where SMF api file is located.'));

    $form['smfsettings']['smfforum_api_file'] = array('#type' => 'textfield',
      '#title' => t('SMF api file name'),
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => $smfapifile,
      '#description' => t('Enter SMF api file name.'));
  }

  if ($smf_connection) {

    $form['drupalsettings'] = array('#type' => 'fieldset',
      '#title' => t('SMF/Drupal settings'),
      '#collapsible' => TRUE,
      '#collapsed' => FALSE);

    $qookie_test = variable_get('smfforum_qookie_test', 0);

    $authenticated = smf_api_authenticate_user();
   
    if ($authenticated) {
      $form['smfstatus']['info7'] = array('#type' => 'markup',
        '#value' => '<div class="ok">'. t('Successfully authenticated SMF user: %name.', array('%name' => smf_api_utf8($smf_user_info['name']))) .'</div>');
      $qookie_test = 1;
      variable_set('smfforum_qookie_test', $qookie_test);
    }
    else {
      if ($qookie_test == 0 || $qookie_test == 2) {
        $form['smfstatus']['info8'] = array('#type' => 'markup',
          '#value' => '<div class="error">'. t('You are not authenticated in SMF now.') .' '. t('Please login to SMF and test again. You may refresh settings!') .'</div>');
        $qookie_test = 0;
      }
      else {
        $form['smfstatus']['info8'] = array('#type' => 'markup',
          '#value' => '<div class="ok">'. t('You are not authenticated in SMF now.') .'</div>');
      }
    }

    $form['drupalsettings']['smfforum_qookie_test'] = array(
      '#type' => 'radios',
      '#title' => t('SMF qookie authentication test'),
      '#default_value' => $qookie_test,
      '#options' => array(0 => t('Not passed'), 1 => t('Passed'), 2 => t('Test')),
    );

    $form['drupalsettings']['smfforum_master'] = array(
      '#type' => 'radios',
      '#title' => t('Select master registration system'),
      '#default_value' => variable_get('smfforum_master', 1),
      '#options' => array(0 => t('Drupal master'), 1 => t('SMF master')),
    );

    $form['drupalsettings']['smfforum_cookie_length'] = array('#type' => 'textfield',
      '#title' => t('Session length'),
      '#maxlength' => '6', '#size' => '6',
      '#default_value' => variable_get('smfforum_cookie_length', SMF_COOKIELENGTH),
      '#description' => t('Enter the session length in minutes to stay logged in.'));

    $form['drupalsettings']['smfforum_num_whos_online'] = array('#type' => 'textfield',
      '#title' => t('Number of online forum users'),
      '#maxlength' => '4', '#size' => '4',
      '#default_value' => variable_get('smfforum_num_whos_online', SMF_NUM_WHOS_ONLINE),
      '#description' => t('Enter the number of online forum users.'));

    $form['drupalsettings']['smfforum_num_recent_topics'] = array('#type' => 'textfield',
      '#title' => t('Number of recent topics'),
      '#maxlength' => '2', '#size' => '2',
      '#default_value' => variable_get('smfforum_num_recent_topics', SMF_NUM_RECENT_TOPICS),
      '#description' => t('Enter the number of recent topics.'));
    
    $form['drupalsettings']['smfforum_recent_topics_br'] = array(
      '#type' => 'radios',
      '#title' => t('Recent topics word\'s delimiter'),
      '#default_value' => variable_get('smfforum_recent_topics_br', 1),
      '#options' => array(0 => t('Space'), 1 => t('BR')),
      '#description' => t('Enter the recent topics word\'s delimiter.'));
        
    $form['drupalsettings']['smfforum_num_recent_posts'] = array('#type' => 'textfield',
      '#title' => t('Number of recent posts'),
      '#maxlength' => '2', '#size' => '2',
      '#default_value' => variable_get('smfforum_num_recent_posts', SMF_NUM_RECENT_POSTS),
      '#description' => t('Enter the number of recent posts.'));

    $form['drupalsettings']['smfforum_recent_posts_br'] = array(
      '#type' => 'radios',
      '#title' => t('Recent posts word\'s delimiter'),
      '#default_value' => variable_get('smfforum_recent_posts_br', 1),
      '#options' => array(0 => t('Space'), 1 => t('BR')),
      '#description' => t('Enter the recent posts word\'s delimiter.'));
    
    $form['drupalsettings']['smfforum_user_ban'] = array(
      '#type' => 'radios',
      '#title' => t('SMF user ban checking'),
      '#default_value' => variable_get('smfforum_user_ban', 0),
      '#options' => array(0 => t('No'), 1 => t('Check SMF bans')),
    );

    $form['drupalsettings']['smfforum_set_msg'] = array(
      '#type' => 'radios',
      '#title' => t('Display SMFforum module messages'),
      '#default_value' => variable_get('smfforum_set_msg', 1),
      '#options' => array(0 => t('No'), 1 => t('Yes')),
    );
    
    $form['drupalsettings']['smfforum_log_msg'] = array(
      '#type' => 'radios',
      '#title' => t('Log SMFforum module messages'),
      '#default_value' => variable_get('smfforum_log_msg', 1),
      '#options' => array(0 => t('No'), 1 => t('Yes')),
    );

    // Signatures
    $form['drupalsettings']['smfforum_sync_signature'] = array(
      '#type' => 'radios',
      '#title' => t('Signatures synchronisation'),
      '#default_value' => variable_get('smfforum_sync_signature', 1),
      '#options' => array(0 => t('Disable'), 1 => t('Enable')),
      '#description' => t('Set signatures synchronisation support.')
    );
    // Avatars
    $form['drupalsettings']['smfforum_sync_avatar'] = array(
      '#type' => 'radios',
      '#title' => t('Avatars synchronisation'),
      '#default_value' => variable_get('smfforum_sync_avatar', 1),
      '#options' => array(0 => t('Disable'), 1 => t('Enable')),
      '#description' => t('Set avatars synchronisation support.')
    );
    // Timezones
    $form['drupalsettings']['smfforum_sync_timezone'] = array(
      '#type' => 'radios',
      '#title' => t('Timezones synchronisation'),
      '#default_value' => variable_get('smfforum_sync_timezone', 0),
      '#options' => array(0 => t('Disable'), 1 => t('Enable')),
      '#description' => t('Set timezones synchronisation support.')
    );

    $form['profilemap'] = array('#type' => 'fieldset',
      '#title' => t('Profile fields mapping'),
      '#collapsible' => TRUE,
      '#collapsed' => TRUE);

    $form['profilemap']['smfforum_map_name'] = array('#type' => 'textfield',
      '#title' => t('Name of `name` field'),  // 'realName'
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_name', 'profile_name'),
      '#description' => t('Enter the name of SMF `realName` field, as it configured in Drupal profile module.'));

    $form['profilemap']['smfforum_map_gender'] = array('#type' => 'textfield',
      '#title' => t('Name of `gender` field'),  // 'gender'
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_gender', 'profile_gender'),
      '#description' => t('Enter the name of SMF `gender` field, as it configured in Drupal profile module.'));

    $form['profilemap']['smfforum_map_birthdate'] = array('#type' => 'textfield',
      '#title' => t('Name of `birthdate` field'),  // 'birthdate'
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_birthdate', 'profile_birthdate'),
      '#description' => t('Enter the name of SMF `birthdate` field, as it configured in Drupal profile module.'));

    $form['profilemap']['smfforum_map_personalText'] = array('#type' => 'textfield',
      '#title' => t('Name of `personalText` field'), // 'personalText'
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_personalText', 'profile_personalText'),
      '#description' => t('Enter the name of SMF `personalText` field, as it configured in Drupal profile module.'));

    $form['profilemap']['smfforum_map_usertitle'] = array('#type' => 'textfield',
      '#title' => t('Name of `usertitle` field'), // 'usertitle'
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_usertitle', 'profile_usertitle'),
      '#description' => t('Enter the name of SMF `usertitle` field, as it configured in Drupal profile module.'));

    $form['profilemap']['smfforum_map_location'] = array('#type' => 'textfield',
      '#title' => t('Name of `location` field'),
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_location', 'profile_location'),
      '#description' => t('Enter the name of SMF `location` field, as it configured in Drupal profile module.'));

    $form['profilemap']['smfforum_map_ICQ'] = array('#type' => 'textfield',
      '#title' => t('Name of `ICQ` field'),
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_ICQ', 'profile_ICQ'),
      '#description' => t('Enter the name of SMF `ICQ` field, as it configured in Drupal profile module.'));
    $form['profilemap']['smfforum_map_AIM'] = array('#type' => 'textfield',
      '#title' => t('Name of `AIM` field'),
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_AIM', 'profile_AIM'),
      '#description' => t('Enter the name of SMF `AIM` field, as it configured in Drupal profile module.'));
    $form['profilemap']['smfforum_map_YIM'] = array('#type' => 'textfield',
      '#title' => t('Name of `YIM` field'),
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_YIM', 'profile_YIM'),
      '#description' => t('Enter the name of SMF `YIM` field, as it configured in Drupal profile module.'));

    $form['profilemap']['smfforum_map_MSN'] = array('#type' => 'textfield',
      '#title' => t('Name of `MSN` field'),
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_MSN', 'profile_MSN'),
      '#description' => t('Enter the name of SMF `MSN` field, as it configured in Drupal profile module.'));

    $form['profilemap']['smfforum_map_websiteTitle'] = array('#type' => 'textfield',
      '#title' => t('Name of `websiteTitle` field'),  // 'websiteTitle'
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_websiteTitle', 'profile_websiteTitle'),
      '#description' => t('Enter the name of SMF `websiteTitle` field, as it configured in Drupal profile module.'));

    $form['profilemap']['smfforum_map_websiteUrl'] = array('#type' => 'textfield',
      '#title' => t('Name of `websiteUrl` field'),  // 'websiteUrl'
      '#maxlength' => '128', '#size' => '60',
      '#default_value' => variable_get('smfforum_map_websiteUrl', 'profile_websiteUrl'),
      '#description' => t('Enter the name of SMF `websiteUrl` field, as it configured in Drupal profile module.'));


    // Frame
    $form['smfforum_page'] = array('#type' => 'fieldset',
      '#title' => t('SMF page settings'),
      '#collapsible' => TRUE,
      '#collapsed' => FALSE);

    $form['smfforum_page']['smfforum_page_frame'] = array(
      '#type' => 'radios',
      '#title' => t('SMF display way'),
      '#default_value' => variable_get("smfforum_page_frame", 0),
      '#options' => array(0 => t('In the window'), 1 => t('In frame inside Drupal page')),
      '#description' => t("Change the way SMF is displayed in Drupal.")
    );

    $target = variable_get("smfforum_page_frame", 0);
    if ($target == 1) {
      $form['smfforum_page']['smfforum_page_width'] = array(
        '#type' => 'textfield',
        '#title' => t("SMF frame width"),
        '#default_value' => variable_get("smfforum_page_width", "100%"),
        '#size' => '6',
        '#maxlength' => '6',
        '#description' => t("Set the width of the Frame.")
      );
      $form['smfforum_page']['smfforum_page_height'] = array(
        '#type' => 'textfield',
        '#title' => t("SMF frame height"),
        '#default_value' => variable_get("smfforum_page_height", "1024"),
        '#size' => '6', '#maxlength' => '6',
        '#description' => t("Set the height of the Frame.")
      );

      $form['smfforum_page']['smfforum_page_scroll'] = array(
        '#type' => 'radios',
        '#title' => t('Scrolling SMF frame'),
        '#default_value' => variable_get("smfforum_page_scroll", 2),
        '#options' => array(0 => t('No'), 1 => t('Yes'), 2 => t('Auto')),
        '#description' => t("Should scrollbars be displayed if SMF is too large to fit in the frame.")
      );
    }
  }
  return $form;
}

if (variable_get("smfforum_page_frame", 0) == 1) {

  function smfforum_page() {
    global $smf_settings, $site_smf_page;
    if (!_smfforum_settings())
      return;

    $action = $_SERVER['QUERY_STRING'];
    //drupal_set_message('QUERY_STRING='.$action);
    
    //$str = "q=smfforum";
    $str = 'q='. $site_smf_page .'/index.php';
    //$str = 'q='. $site_smf_page;
    $len = strlen($str);
    $stra = $str .'&';
    $lena = $len + 1;
    if (substr($action, 0, $lena) == $stra)
      $action = substr($action, $lena);
    elseif (substr($action, 0, $len) == $str)
      $action = substr($action, $len);
    else {
      $str = 'q='. $site_smf_page;
      $len = strlen($str);
      $stra = $str .'&';
      $lena = $len + 1;
      if (substr($action, 0, $lena) == $stra)
        $action = substr($action, $lena);
      elseif (substr($action, 0, $len) == $str)
        $action = substr($action, $len);
    }  
      
    //drupal_set_message('QUERY_STRING2='.$action);

    $path = $smf_settings['forum_url'];
    $path .= '/index.php';
    if ($action != "") {
      $path .= '?';
      $path .= $action;
    }

    //drupal_set_message('path='.$path);
    
    // Added this to allow the iframe to resize dynamically according to the
    // page height. -- Daen

    drupal_add_js(drupal_get_path('module', 'smfforum') .'/smfframe.js', 'module');

    $width = variable_get("smfforum_page_width", "100%");
    $height = variable_get("smfforum_page_height", "1024");
    $scrolling = variable_get("smfforum_page_scroll", 2);

    $output = '<iframe id="forumFrame" src="'. $path .'"'; //name="smfforum"';

    if ($width && $height) {
      $output .= ' width="'. $width .'"'.' height="'. $height .'"';
    }
    $output .= ' frameborder="0" framespacing="0"';
    if ($scrolling == 2)
      $output .= ' scrolling="auto"';
    elseif ($scrolling == 1)
      $output .= ' scrolling="yes"';
    else
      $output .= ' scrolling="no"';
    $output .= ' allowtransparency="false"';

    $output .= '><p>'. t('Sorry your browser does not work') .'</p></iframe>';

    return $output;
  }
}

function smfforum_block($op = 'list', $delta = 0, $edit = array()) {
  global $user;

  if ($op == 'list') {
    $blocks[0]['info'] = SMF_MODULE_TAG .': '. t('Hidden authentication');
    $blocks[1]['info'] = SMF_MODULE_TAG .': '. t('Personal messages');
    $blocks[2]['info'] = SMF_MODULE_TAG .': '. t('Online forum users');
    $blocks[3]['info'] = SMF_MODULE_TAG .': '. t('New forum topics');
    $blocks[4]['info'] = SMF_MODULE_TAG .': '. t('New forum posts');
    $blocks[5]['info'] = SMF_MODULE_TAG .': '. t('Forum statistics');
    $blocks[6]['info'] = SMF_MODULE_TAG .': '. t('Top posters');
    return $blocks;
  }
  else if ($op == 'view') {

    $block = array();

    if (!_smfforum_settings())
      return $block;

    switch ($delta) {
      case 0:
        _smfforum_authenticate_user();
        return $block;

      case 1:

        $c = smfforum_pm();
        $block['subject'] = t('Personal messages');
        $block['content'] = $c;
        return $block;

      case 2:

        $c = smfforum_whos_online((int)variable_get('smfforum_num_whos_online', SMF_NUM_WHOS_ONLINE));
        $block['subject'] = t('Online forum users');
        $block['content'] = $c;
        return $block;

      case 3:

        if (variable_get('smfforum_recent_topics_br', 1))
          $delimeter = SMF_RECENT_DELIMITER_BR;
        else
          $delimeter = SMF_RECENT_DELIMITER_SPACE;
        $c = smfforum_recent_topics((int)variable_get('smfforum_num_recent_topics', SMF_NUM_RECENT_TOPICS), null, "<ul class = \"menu\">", $delimeter);
        $block['subject'] = t('New forum topics');
        $block['content'] = $c;
        return $block;

      case 4:

        if (variable_get('smfforum_recent_posts_br', 1))
          $delimeter = SMF_RECENT_DELIMITER_BR;
        else
          $delimeter = SMF_RECENT_DELIMITER_SPACE;
        $c = smfforum_recent_posts((int)variable_get('smfforum_num_recent_posts', SMF_NUM_RECENT_POSTS), null, "<ul class = \"menu\">", $delimeter);
        $block['subject'] = t('New forum posts');
        $block['content'] = $c;
        return $block;

      case 5:

        $c = smfforum_board_stats();
        $block['subject'] = t('Forum statistics');
        $block['content'] = $c;
        return $block;

      case 6:

        $c = smfforum_topposter((int)variable_get('smfforum_num_top_posters', SMF_NUM_TOP_POSTERS));
        $block['subject'] = t('Top posters');
        $block['content'] = $c;
        return $block;
    }
  }
}

function _smfforum_watchdog($message = '', $variables = array(), $severity = WATCHDOG_NOTICE, $link = NULL) {
  if (empty($message))
    return;
  $display = variable_get("smfforum_log_msg", 0);
  if (!$display)
    return;   
  
  if (SMF_DRUPAL_MODULE_VERSION == 5) {
    if (count($variables) != 0)
      $message = t($message, $variables);
    watchdog(SMF_DRUPAL_MODULE, $message, $severity, $link);
  }
  else {
    watchdog(SMF_DRUPAL_MODULE, $message, $variables, $severity, $link);
  }
  return;
}

function _smfforum_set_message($message, $variables = array(), $type = 'status', $repeat = TRUE) {
  if (empty($message))
    return;
  $display = variable_get("smfforum_set_msg", 0);
  if (!$display)
    return;

  if (count($variables) != 0)
    $message = t($message, $variables);
 
  if (SMF_DRUPAL_MODULE_VERSION == 5) {
    drupal_set_message($message, $type);
  }
  else {
    drupal_set_message($message, $type, $repeat);
  } 
  return;
}


function _smfforum_msg($op = 'info', $update = false, $msg = '', $msgt = '', $account = '', $edit = array()) {

  global $smf_settings, $smf_user_info, $user;
  $message = '';

  $name = (empty($account) ? smf_api_utf8($smf_user_info['username']) : $account->name);

  if ($op == 'update' || $op == 'after_update' || $op == 'insert' || $op == 'login' || $op == 'login2' || $op == 'view' || $op == 'categories') {
    if (count($edit) != 0) {
      $s = '';
      foreach ($edit as $var => $val) {
        if ($var == 'pass' || $var == 'passwd')
          $s .= "$var => ****, ";
        else {
          if ($msgt == SMF_SYNC_TO_SMF)
            $var = variable_get('smfforum_map_'. $var, '');
          if (!empty($var)) {  
            // 01234567
            // profile_
            if (substr($var, 0, 8) == "profile_")
              $var = substr($var, 8);

            if ($var == 'gender' && $msgt == SMF_SYNC_TO_SMF) {
              if ($val == '1')
                $val = t('Male');
              elseif ($val == '2')
                $val = t('Female');
            }
            $s .= "$var => $val, ";
          }
        }
      }
      if ($msgt == SMF_SYNC_TO_SMF)
        $s = smf_api_utf8($s);
    }

    if ($update && count($edit) != 0) {
      $message = t('Data %data for %name synced', array('%data' => $s, '%name' => $name));
    }
    else if (!$update && count($edit) != 0)
      $message = t('Unable to sync data %data for %name', array('%data' => $s, '%name' => $name));
    else
      $message = t('No data to sync for %name', array('%name' => $name));

    //$msgt = t('%smfforum_to', array('%smfforum_to' => $msgt));
    if (