";
  // echo "$optionsList\n";
  //print_r($config_info);
  //exit;

  return $optionsList;
}

function copyConfigInfo_symbolLists($config_info)
{
  $optionsList = "";
  $symbol_list_prefix = "";
  switch ($config_info['symbol_list_type'])
    {
    case "single":
      $optionsList .= '&SL=x' . urlencode($config_info['single_symbol']);
      break;
    case "exclude":
      $symbol_list_prefix = "X";
      // fall through!
    case "only":
      {
	$symbol_lists = array();
	foreach ($config_info['symbol_lists'] as $owner_id => $list_ids)
	  {
	    foreach ($list_ids as $list_id => $unused)
	      {
		if ($owner_id)
		  {
		    $symbol_lists[] = $owner_id . 'o' . $list_id;
		  }
		else
		  {
		    $symbol_lists[] = $list_id;
		  }
	      }
	  }
	if (count($symbol_lists))
	  {
	    $optionsList .= '&SL=' . $symbol_list_prefix . implode('a', $symbol_lists);
	  }
      }
    }
  return $optionsList;
}

function hasConfigInfo($source)
{
  return array_key_exists('O', $source) || array_key_exists('form', $source);
}

function getConfigInfo($fix=true)
{
  if ($_SERVER["REQUEST_METHOD"]=="POST")
  {
    readConfigInfo($_POST, $fix);
  }
  else
  {
    readConfigInfo($_GET, $fix);
  }
}

// Some filters have been renamed.  We use this function to read in a value
// using the old name, but store it internally as if it came to us with the
// new name.  When we export the configuration, we always use the new nemae.
function loadOldFilter(&$config_info, $rawConfig, $oldName, $newName, $negate)
{
  if (is_numeric($tmp=removeCommas($rawConfig[$oldName])))
    {
      if ($negate)
	{
	  $tmp = -$tmp;
	}
      $config_info['alert_filters'][$newName] = $tmp;
    }
}

function readConfigInfo($source, $fix=true)
{
  global $config_info, $alert_types, $window_filters, $exchange_filters, $exchange_info, $bitByOption, $display_only_fields;
  ensureGMP();
  $config_info = array();
  $config_info['active_alerts'] = array();
  $config_info['active_exchanges'] = array();
  if ($source["O"])
  {
    list($activeAlertsNum, $activeExchanges, $viewingOptions) = explode("_", $source["O"]);
    $activeExchanges = hexdec($activeExchanges);
    $config_info['viewing_options'] = hexdec($viewingOptions);
    $activeAlertsNum = gmp_init("0x".$activeAlertsNum);
    foreach ($alert_types as $bit => $alert)
    {
      if (gmp_scan1($activeAlertsNum, $bit) == $bit)
      {
        $config_info['active_alerts'][$alert] = true;
      }
    }
    $bit = 1;
    foreach ($exchange_filters as $internal)
    {
      if ($bit & $activeExchanges)
      {
        $config_info['active_exchanges'][$internal] = true;
      }
      $bit <<= 1;
    }
    $show_count = 0;
    while (true)
    {
      if (isset($source['show' . $show_count]))
      {
        $current_show = $source['show' . $show_count];
        if ($window_filters[$current_show] || $display_only_fields[$current_show])
        {
          $config_info['show'][] = $current_show;
	}
      }
      else
      {
        break;
      }
      $show_count++;
    }
  }
  else
  {
    foreach ($alert_types as $alert)
    {
      if ($source["Sh_" . $alert])
      {
        $config_info['active_alerts'][$alert] = true;
      }
    }
    $activeExchanges = array();
    foreach ($exchange_filters as $form => $internal)
    {
      if ($source[$form]) 
      {
        $config_info['active_exchanges'][$internal] = true;
      }
    }
    $viewingOptions = 0;
    foreach ($bitByOption as $option => $bit)
    {
      if ($source["VO_" . $option])
      {
        $viewingOptions |= $bit;
      }
    }
    $config_info['viewing_options'] = $viewingOptions;
  }
  if ($config_info['active_exchanges']['Listed'])
  {
    unset($config_info['active_exchanges']['Listed']);
    $config_info['active_exchanges']['NYSE'] = true;
    $config_info['active_exchanges']['AMEX'] = true;
  }
  if ($fix)
  {
    if (!count($config_info['active_exchanges']))
    {
      foreach($exchange_info as $internal => $item_info)
      {
        if (!$item_info['limited access'])
        {
          $config_info['active_exchanges'][$internal] = true;
        }
      }
    }
    if ((!count($config_info['active_alerts'])) && (!$source["O"]))
    {
      $config_info['active_alerts']["HB"] = true;
    }
  }
  $config_info['alert_quality'] = array();
  foreach ($config_info['active_alerts'] as $alert => $unused)
  {
    if (is_numeric($tmp=removeCommas($source['Q' . $alert])))
    {
      $config_info['alert_quality'][$alert] = $tmp;
    }
  }
  foreach ($display_only_fields as $name => $field_info)
  {
    if ($source['show_' . $name])
    {
      $config_info['show'][] = $name;
    }
  }
  $config_info['alert_filters'] = array();
  loadOldFilter($config_info, $source, "PF1", "MinDec", false);
  loadOldFilter($config_info, $source, "PF2", "MaxDec", false);
  loadOldFilter($config_info, $source, "MinGDR", "MaxGUR", true);
  loadOldFilter($config_info, $source, "MinGDP", "MaxGUP", true);
  loadOldFilter($config_info, $source, "MinGDD", "MaxGUD", true);
  foreach ($window_filters as $name => $filter_info)
  {
    foreach (array("Min", "Max") as $dir)
      {
        $filter_name = $dir . $name;
	if (is_numeric($tmp=removeCommas($source[$filter_name])))
	  {
	    $config_info['alert_filters'][$filter_name] = $tmp;
	  }
      }
    if ($source['show_' . $name])
    {
      $config_info['show'][] = $name;
    }
  }
  readConfigInfo_symbolLists($source, $config_info);
  if ($source['S']==-1)
  {
    $sound = $source['S_OTHER'];
  }
  else
  {
    $sound = $source['S'];
  }
  if ($sound)
  {
    $config_info['sound'] = $sound;
  }
  if ($source['opt'])
  {
    $config_info['optionable'] = true;
  }
  if ($source['WN'] != '')
  {
    $config_info['window_name'] = $source['WN'];
  }
  if ($source['col_ver'] != '')
  {
    $config_info['column_version'] = $source['col_ver'];
  }
  //echo "
";
  //print_r($config_info);
  //echo "
";
  //exit;
}

function readConfigInfo_symbolLists($source, &$config_info)
{
  $config_info['symbol_lists'] = array();
  if ($source['SL'] == '')
    {
      switch ($source['EntireUniverse'])
	{
	case '':  // Include only selected lists
	case '2':  // Exclude selected lists
	  {
	    foreach ($source as $key => $value)
	      {
		if (preg_match("/^SL_([0-9]+)_([0-9]+)$/", $key, $symbol_list_parts))
		  {
		    $config_info['symbol_lists'][$symbol_list_parts[1]+0][$symbol_list_parts[2]+0] = true;
		  }
	      }
	    if (count($config_info['symbol_lists']))
	      {
		if ($source['EntireUniverse'] == '2')
		  {
		    $config_info['symbol_list_type'] = 'exclude';
		  }
		else
		  {
		    $config_info['symbol_list_type'] = 'only';
		  }
	      }
	    break;
	  }
	case '3':  // Single symbol only
	  {
	    $single_symbol = strtoupper(trim($source['SingleSymbol']));
	    if ($single_symbol != "")
	      {
		$config_info['single_symbol'] = $single_symbol;
		$config_info['symbol_list_type'] = "single";
	      }
	    break;
	  }
	case '1':  // Entire universe
	default:
	}
    }
  else
    { // $source['SL'] != ''
      if (substr($source['SL'], 0, 1) == 'x')
	{
	  $single_symbol = strtoupper(trim(substr($source['SL'],1)));
	  if ($single_symbol != "")
	    {
	      $config_info['single_symbol'] = $single_symbol;
	      $config_info['symbol_list_type'] = "single";
	    }
	}
      else
	{
	  if (substr($source['SL'], 0, 1) == 'X')
	    {
	      $symbol_list_type = 'exclude';
	      $encoded_symbol_lists = substr($source['SL'], 1);
	    }
	  else
	    {
	      $symbol_list_type = 'only';
	      $encoded_symbol_lists = $source['SL'];
	    }
	  $symbol_lists = explode('a', $encoded_symbol_lists);
	  foreach ($symbol_lists as $symbol_list)
	    {
	      if (preg_match('/^(([0-9]+)o)?([0-9]+)$/', $symbol_list, $symbol_list_parts))
		{
		  // The first key is the owner, 0 for the current user.
		  // The second key is the list id.
		  $config_info['symbol_lists'][$symbol_list_parts[2]+0][$symbol_list_parts[3]+0] = true;
		}
	    }
	  if (count($config_info['symbol_lists']))
	    {
	      $config_info['symbol_list_type'] = $symbol_list_type;
	    }
	}
    }
}

// Internal

function removeCommas($number)
{
  return strtr($number, array(',' => ''));
}

// Definately internal.  And ugly.

function ensureGMP()
{
  // Windows doesn't implement this!
  // And it is not a default under unix.
  // This is a very simplistic and incomplete port.
  // It makes some attempts to report unimplemented features,
  // but it only goes so far.
  // Yuck.  I would never have done this but I didn't know that gmp
  // was only available on windows at the time.
  if (!function_exists("gmp_init"))
  {
    // Our version of a gmp number is an array of integers.
    // Each integer is 7 nibbles wide.
    // 0 is the least significant integer.
    function gmp_init($hex_value)
    {
      if (is_int($hex_value) && ($hex_value>=0) && ($hex_value <= 0xfffffff))
      {
        $result = array($hex_value);
      }
      else if (preg_match("/^0[xX]([0-9a-fA-F]+)$/", $hex_value, $pieces))
      {
        $remaining = $pieces[1];
        $result = array();
        while (strlen($remaining))
        {
          $result[] = hexdec(substr($remaining, -7));
          $remaining = substr($remaining, 0, -7);
        }
      }
      else
      {
        user_error("bad input to gmp_init:  " . $hex_value);
      }
      return $result;
    }
    function gmp_strval($gmp_number, $base)
    {
      if (count($gmp_number) == 0)
      {
        return "0";
      }
      if ($base == 16)
      {
        $max = -1;
        foreach($gmp_number as $index => $value)
        {
          $max = max($max, $index);
        }
        $result = "";
        for ($index = 0; $index <= $max; $index++)
        {
          $result = str_pad(dechex($gmp_number[$index]), 7, "0", STR_PAD_LEFT) . $result;
        }
      }
      else
      {
        user_error("invalid base in gmp_strval");
      }
      return $result;
    }
    // This returns $bit if the bit is set, and null for
    // everthing else.  That is what our code needs, but the
    // real gmp library would look for a bit further to the right
    // before failing.
    // We really wanted the gmp test bit function.  For some reason
    // php doesn't expose that function.  So we use gmp_scan1 to
    // implement our own test bit function.  The function below is only
    // intended to be used for that purpose.
    function gmp_scan1($gmp_number, $bit) 
    {
      if (count($gmp_number))
      {
        if ($gmp_number[$bit / 28] & (1<<($bit % 28)))
        {
          return $bit;
        }
      }
      return -1;
    }
    function gmp_setbit(&$gmp_number, $bit)
    {
      $gmp_number[$bit / 28] |= (1<<($bit % 28));
    }
  }
}

?>