<?php
/**
* copyright            : (C) 2001-2011 Advanced Internet Designs Inc.
* email                : forum@prohost.org
* $Id$
*
* This program is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by the
* Free Software Foundation; version 2 of the License.
**/

/** Lookup forum user. */
function match_user_to_post($from_email, $from_name, $create_users, &$user_id, $reg_date=0)
{
	/* Try to identify user by email. */
	$user = db_sab('SELECT id, users_opt FROM '. sql_p .'users WHERE email='. _esc($from_email));

	/* If user was not found via email, try to look the user up by login. */
	if (empty($user->id) && !empty($from_name)) {
		if ($GLOBALS['FUD_OPT_2'] & 128) {	// USE_ALIASES
			$user = db_sab('SELECT id, users_opt FROM '. sql_p .'users WHERE alias='. _esc(make_alias($from_name)));
		} else {
			$user = db_sab('SELECT id, users_opt FROM '. sql_p .'users WHERE login='. _esc($from_name));
		}
	}

	if (empty($user->id)) {
		$user = new stdClass();
		$user->id = $create_users ? create_new_user($from_name, $from_email, $reg_date) : 0;
	} else if ($user->users_opt & 65536) {	// User is banned.
		$user->id = -1;
	}

	return $user->id;
}

/** Create new confirmed forum user without sending an E-mail notification. */
function create_new_user($from_name, $from_email, $reg_date=0)
{
	/* Since we assume every user created from a mailing list is already 'confirmed'
	 * this disables sending of the email confirmation.
	 */

	$login = empty($from_name) ? preg_replace('/[^a-zA-Z0-9-\s]/', '', $from_email) : $from_name;
	$i = 1;

	/* Remove all non-ASCII characters from login */
	$login = preg_replace('/[^(\x00-\x7F)]*/','', $login);

	$user = new fud_user_reg;
	if (strlen(htmlspecialchars($login)) + 4 > $GLOBALS['MAX_LOGIN_SHOW']) {
		$login = $user->login = reverse_fmt(substr(htmlspecialchars($login), 0, $GLOBALS['MAX_LOGIN_SHOW'] - 4));
	} else {
		$user->login = $login;
	}

	/*
	 * This code ensures that creation of user does not fail in the event another user on the forum
	 * is already signed up under the same login name and/or alias.
	 */
	while (q_singleval('SELECT id FROM '. sql_p .'users WHERE login='. _esc($user->login))) {
		$user->login = $login .'['. $i++ .']';
	}

	$alias = $user->alias = htmlspecialchars($user->login);

	while (q_singleval('SELECT id FROM '. sql_p .'users WHERE alias='. _esc($user->alias))) {
		$user->alias = $alias .'['. $i++ .']';
	}

	$user->email     =& $from_email;
	$user->name      =& $from_name;
	$user->users_opt = -1;
	$user->join_date = $reg_date;

	$id = $user->add();

	return $id;
}

/** Lookup parent message to add reply to. */
function get_fud_reply_id($complex, $forum_id, $subject, $data)
{
	if (!empty($data)) {
		if (is_string($data)) {
			$data = array($data);
		}

		foreach ($data as $reply_id) {
			if (($r = db_saq('SELECT m.id, m.thread_id FROM '. sql_p .'msg m INNER JOIN '. sql_p .'thread t ON m.thread_id=t.id WHERE m.mlist_msg_id='. _esc($reply_id) .' AND t.forum_id='. $forum_id .' ORDER BY m.post_stamp DESC LIMIT 1'))) {
				break;
			}
		}
	}
	if (empty($r) && $complex) {
		// This is slow, but only way to match 'rouge' replies in the event no reference fields are available.
		// Reply prefix for most languages is "Re:",  "AW:" for German, etc.
		if (preg_match('!(?:Re|AW|Wa)\s*:\s*(.*)$!i', $subject, $matches)) {
			$r = db_saq('SELECT m.id, m.thread_id FROM '. sql_p .'msg m INNER JOIN '. sql_p .'thread t ON m.thread_id=t.id WHERE t.forum_id='. $forum_id .' AND m.subject='. ssn(trim($matches[1])) .' ORDER BY m.post_stamp');
			if (!$r) {
				$r = db_saq('SELECT m.id, m.thread_id FROM '. sql_p .'msg m INNER JOIN '. sql_p .'thread t ON m.thread_id=t.id WHERE t.forum_id='. $forum_id .' AND m.subject LIKE '. addcslashes(_esc(trim($matches[1]) .'%'),'_') .' ORDER BY m.post_stamp DESC LIMIT 1');
			}
		}
	}

	return !empty($r) ? array((int)$r[0], (int)$r[1]) : array(0, 0);
}

/** Parse an IP address. */
function parse_ip($str)
{
//@TODO: IPv6 compatibility.
	if (preg_match('!([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})!', $str, $m)) {
		return $m[1];
	} else {
		return;
	}
}

if (extension_loaded('iconv')) {
	function charset_convert($str, $from, $to) { return @iconv($from, $to, $str); }
} else if (extension_loaded('recode')) {
	function charset_convert($str, $from, $to) { return @recode_string($from .'..'. $to, $str); }
} else {
	function charset_convert($str, $from, $to) { return $str; }
}

/** Change the encoding of a string. */
function decode_string($str, $encoding, $charset='')
{
	if ($encoding == 'quoted-printable') {
		// Remove soft line breaks & decode.
		$str = quoted_printable_decode(preg_replace('!=\r?\n!', '', $str));
	} else if ($encoding == 'base64') {
		$str = base64_decode($str);	
	}

	/* Convert character set if possible. */
	if ($charset && $charset != $GLOBALS['CHARSET']) {
		$str = charset_convert($str, $charset, $GLOBALS['CHARSET']);
	}

	return $str;
}

/** Change the encoding of a header value. */
function decode_header_value($val)
{
	// Should string be decoded? If not, this function may strip accented characters.
	if (strpos($val, '?') === false) {
		return trim($val);
	}

	// Better to let PHP do it as it will also deal with non-UTF-8 characters.
	if (function_exists('iconv_mime_decode')) {
		return iconv_mime_decode(trim($val), 2, $GLOBALS['CHARSET']);
	}

	// Decode string.
	if (preg_match_all('!(.*?)(=\?([^?]+)\?(Q|B)\?([^?]*)\?=)([^=]*)!i', $val, $m)) {
		$newval = '';

		$c = count($m[4]);
		for ($i = 0; $i < $c; $i++) {
			$ec_type = strtolower($m[4][$i]);

			if ($ec_type == 'q') {
				$newval .= decode_string(str_replace('_', ' ', $m[5][$i]), 'quoted-printable', $m[3][$i]);
			} else if ($ec_type == 'b') {
				$newval .= decode_string($m[5][$i], 'base64', $m[3][$i]);
			}

			if (!empty($m[5][$i])) {
				$newval .= $m[6][$i];
			}
			if (!empty($m[1][$i])) {
				$newval = $m[1][$i] . $newval;
			}
		}
		$val = trim($newval);
	}
	return trim($val);
}

/** Helper function to add attachements. */
function add_attachment($name, $data, $pid)
{
	$tmpfname = tempnam($GLOBALS['TMP'], 'FUDf_');
	$fp = fopen($tmpfname, 'wb');
	$len = fwrite($fp, $data);
	fclose($fp);

	return attach_add(array('name' => basename($name), 'size' => $len, 'tmp_name' => $tmpfname), $pid, 0, 1);
}

/** Apply different colors to different levels of quoted text. */
function color_quotes($body, $forum_opt)
{
	$body = str_replace("\r\n", PHP_EOL, $body);	// Get rid of carriage returns on non-Windows systems.

	if ($forum_opt & 16) {	// BBCode tag style.
		$body = preg_replace('/^>\h*>\h*>\h*>(.*)$/m', '[color=skyblue]>>>> \1[/color]',  $body);
		$body = preg_replace('/^>\h*>\h*>(.*)$/m',     '[color=royalblue]>>> \1[/color]', $body);
		$body = preg_replace('/^>\h*>(.*)$/m',         '[color=teal]>> \1[/color]',       $body);
		$body = preg_replace('/^>(.*)$/m',             '[color=blue]> \1[/color]',        $body);
	} else if (!($forum_opt & 8)) {	// Tag style is not NONE (thus, HTML).
		$body = preg_replace('/^>\h*>\h*>\h*>(.*)$/m', '<font color="skyblue"> &gt;&gt;&gt;&gt; \1</font>', $body);
		$body = preg_replace('/^>\h*>\h*>(.*)$/m',     '<font color="royalblue"> &gt;&gt;&gt; \1</font>',   $body);
		$body = preg_replace('/^>\h*>(.*)$/m',         '<font color="teal"> &gt;&gt; \1</font>',            $body);
		$body = preg_replace('/^>(.*)$/m',             '<font color="blue"> &gt; \1</font>',                $body);
	}

	return $body;
}

?>