-* @package phpBB3

-* @copyright (c) 2004 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

- if (sizeof($$var))

- foreach ($$var as $auth_option => $l_ary)

- switch ($db->sql_layer)

- $result = $db->sql_query($sql);

- $result = $db->sql_query($sql);

- $result = $db->sql_query($sql);

- $topic = make_topic($userid, "Testing topic $i", $forum);

- if($db->sql_layer == "mysql")

- $icq = "12345678";

- $website = "http://www.phpbb.com";

- $aim = 0;

- $yim = 0;

- $msn = 0;

- $sql = "INSERT INTO " . USERS_TABLE . " (user_id, username, user_regdate, user_password, user_email, user_icq, user_website, user_sig, user_sig_bbcode_uid, user_avatar, user_viewemail, user_aim, user_yim, user_msnm, user_attachsig, user_allowsmilies, user_allowhtml, user_allowbbcode, user_allow_viewonline, user_notify, user_notify_pm, user_timezone, user_dateformat, user_lang, user_style, user_level, user_allow_pm, user_active, user_actkey)

- VALUES ($new_user_id, '$username', " . time() . ", '$password', '$email', '$icq', '$website', '$signature', '$signature_bbcode_uid', '$avatar_filename', $viewemail, '$aim', '$yim', '$msn', $attachsig, $allowsmilies, $allowhtml, $allowbbcode, $allowviewonline, $notifyreply, $notifypm, $user_timezone, '$user_dateformat', '$user_lang', $user_style, 0, 1, ";

-* @package phpBB3

-* @copyright (c) 2004 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-* @package phpBB3

-* @copyright (c) 2003 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-* @package phpBB3

-* @copyright (c) 2009, 2010 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-* This script will check your database for potentially dangerous flash BBCode tags

- $string = preg_replace('~&#x([0-9a-f]+);~ei', 'code2utf8(hexdec("\\1"))', $string);

- $string = preg_replace('~&#([0-9]+);~e', 'code2utf8(\\1)', $string);

-* @package phpBB3

-* @copyright (c) 2006 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-require(dirname(__FILE__) . '/../includes/db/schema_data.php');

-require(dirname(__FILE__) . '/../phpbb/db/tools.php');

-

-$dbms_type_map = phpbb\db\tools::get_dbms_type_map();

-

-// A list of types being unsigned for better reference in some db's

-$unsigned_types = array('UINT', 'UINT:', 'USINT', 'BOOL', 'TIMESTAMP');

-$supported_dbms = array('firebird', 'mssql', 'mysql_40', 'mysql_41', 'oracle', 'postgres', 'sqlite');

-

-foreach ($supported_dbms as $dbms)

-{

- $fp = fopen($schema_path . $dbms . '_schema.sql', 'wb');

-

- $line = '';

-

- // Write Header

- switch ($dbms)

- {

- case 'mysql_40':

- case 'mysql_41':

- case 'firebird':

- case 'sqlite':

- fwrite($fp, "# DO NOT EDIT THIS FILE, IT IS GENERATED\n");

- fwrite($fp, "#\n");

- fwrite($fp, "# To change the contents of this file, edit\n");

- fwrite($fp, "# phpBB/develop/create_schema_files.php and\n");

- fwrite($fp, "# run it.\n");

- break;

-

- case 'mssql':

- case 'oracle':

- case 'postgres':

- fwrite($fp, "/*\n");

- fwrite($fp, " * DO NOT EDIT THIS FILE, IT IS GENERATED\n");

- fwrite($fp, " *\n");

- fwrite($fp, " * To change the contents of this file, edit\n");

- fwrite($fp, " * phpBB/develop/create_schema_files.php and\n");

- fwrite($fp, " * run it.\n");

- fwrite($fp, " */\n\n");

- break;

- }

-

- switch ($dbms)

- {

- case 'firebird':

- $line .= custom_data('firebird') . "\n";

- break;

-

- case 'sqlite':

- $line .= "BEGIN TRANSACTION;\n\n";

- break;

-

- case 'oracle':

- $line .= custom_data('oracle') . "\n";

- break;

-

- case 'postgres':

- $line .= "BEGIN;\n\n";

- $line .= custom_data('postgres') . "\n";

- break;

- }

-

- fwrite($fp, $line);

-

- foreach ($schema_data as $table_name => $table_data)

- {

- // Write comment about table

- switch ($dbms)

- {

- case 'mysql_40':

- case 'mysql_41':

- case 'firebird':

- case 'sqlite':

- fwrite($fp, "# Table: '{$table_name}'\n");

- break;

-

- case 'mssql':

- case 'oracle':

- case 'postgres':

- fwrite($fp, "/*\n\tTable: '{$table_name}'\n*/\n");

- break;

- }

-

- // Create Table statement

- $generator = $textimage = false;

- $line = '';

-

- switch ($dbms)

- {

- case 'mysql_40':

- case 'mysql_41':

- case 'firebird':

- case 'oracle':

- case 'sqlite':

- case 'postgres':

- $line = "CREATE TABLE {$table_name} (\n";

- break;

-

- case 'mssql':

- $line = "CREATE TABLE [{$table_name}] (\n";

- break;

- }

-

- // Table specific so we don't get overlap

- $modded_array = array();

-

- // Write columns one by one...

- foreach ($table_data['COLUMNS'] as $column_name => $column_data)

- {

- if (strlen($column_name) > 30)

- {

- trigger_error("Column name '$column_name' on table '$table_name' is too long. The maximum is 30 characters.", E_USER_ERROR);

- }

- if (isset($column_data[2]) && $column_data[2] == 'auto_increment' && strlen($column_name) > 26) // "${column_name}_gen"

- {

- trigger_error("Index name '${column_name}_gen' on table '$table_name' is too long. The maximum is 30 characters.", E_USER_ERROR);

- }

-

- // Get type

- if (strpos($column_data[0], ':') !== false)

- {

- list($orig_column_type, $column_length) = explode(':', $column_data[0]);

- if (!is_array($dbms_type_map[$dbms][$orig_column_type . ':']))

- {

- $column_type = sprintf($dbms_type_map[$dbms][$orig_column_type . ':'], $column_length);

- }

- else

- {

- if (isset($dbms_type_map[$dbms][$orig_column_type . ':']['rule']))

- {

- switch ($dbms_type_map[$dbms][$orig_column_type . ':']['rule'][0])

- {

- case 'div':

- $column_length /= $dbms_type_map[$dbms][$orig_column_type . ':']['rule'][1];

- $column_length = ceil($column_length);

- $column_type = sprintf($dbms_type_map[$dbms][$orig_column_type . ':'][0], $column_length);

- break;

- }

- }

-

- if (isset($dbms_type_map[$dbms][$orig_column_type . ':']['limit']))

- {

- switch ($dbms_type_map[$dbms][$orig_column_type . ':']['limit'][0])

- {

- case 'mult':

- $column_length *= $dbms_type_map[$dbms][$orig_column_type . ':']['limit'][1];

- if ($column_length > $dbms_type_map[$dbms][$orig_column_type . ':']['limit'][2])

- {

- $column_type = $dbms_type_map[$dbms][$orig_column_type . ':']['limit'][3];

- $modded_array[$column_name] = $column_type;

- }

- else

- {

- $column_type = sprintf($dbms_type_map[$dbms][$orig_column_type . ':'][0], $column_length);

- }

- break;

- }

- }

- }

- $orig_column_type .= ':';

- }

- else

- {

- $orig_column_type = $column_data[0];

- $column_type = $dbms_type_map[$dbms][$column_data[0]];

- if ($column_type == 'text' || $column_type == 'blob')

- {

- $modded_array[$column_name] = $column_type;

- }

- }

-

- // Adjust default value if db-dependent specified

- if (is_array($column_data[1]))

- {

- $column_data[1] = (isset($column_data[1][$dbms])) ? $column_data[1][$dbms] : $column_data[1]['default'];

- }

-

- switch ($dbms)

- {

- case 'mysql_40':

- case 'mysql_41':

- $line .= "\t{$column_name} {$column_type} ";

-

- // For hexadecimal values do not use single quotes

- if (!is_null($column_data[1]) && substr($column_type, -4) !== 'text' && substr($column_type, -4) !== 'blob')

- {

- $line .= (strpos($column_data[1], '0x') === 0) ? "DEFAULT {$column_data[1]} " : "DEFAULT '{$column_data[1]}' ";

- }

- $line .= 'NOT NULL';

-

- if (isset($column_data[2]))

- {

- if ($column_data[2] == 'auto_increment')

- {

- $line .= ' auto_increment';

- }

- else if ($dbms === 'mysql_41' && $column_data[2] == 'true_sort')

- {

- $line .= ' COLLATE utf8_unicode_ci';

- }

- }

-

- $line .= ",\n";

- break;

-

- case 'sqlite':

- if (isset($column_data[2]) && $column_data[2] == 'auto_increment')

- {

- $line .= "\t{$column_name} INTEGER PRIMARY KEY ";

- $generator = $column_name;

- }

- else

- {

- $line .= "\t{$column_name} {$column_type} ";

- }

-

- $line .= 'NOT NULL ';

- $line .= (!is_null($column_data[1])) ? "DEFAULT '{$column_data[1]}'" : '';

- $line .= ",\n";

- break;

-

- case 'firebird':

- $line .= "\t{$column_name} {$column_type} ";

-

- if (!is_null($column_data[1]))

- {

- $line .= 'DEFAULT ' . ((is_numeric($column_data[1])) ? $column_data[1] : "'{$column_data[1]}'") . ' ';

- }

-

- $line .= 'NOT NULL';

-

- // This is a UNICODE column and thus should be given it's fair share

- if (preg_match('/^X?STEXT_UNI|VCHAR_(CI|UNI:?)/', $column_data[0]))

- {

- $line .= ' COLLATE UNICODE';

- }

-

- $line .= ",\n";

-

- if (isset($column_data[2]) && $column_data[2] == 'auto_increment')

- {

- $generator = $column_name;

- }

- break;

-

- case 'mssql':

- if ($column_type == '[text]')

- {

- $textimage = true;

- }

-

- $line .= "\t[{$column_name}] {$column_type} ";

-

- if (!is_null($column_data[1]))

- {

- // For hexadecimal values do not use single quotes

- if (strpos($column_data[1], '0x') === 0)

- {

- $line .= 'DEFAULT (' . $column_data[1] . ') ';

- }

- else

- {

- $line .= 'DEFAULT (' . ((is_numeric($column_data[1])) ? $column_data[1] : "'{$column_data[1]}'") . ') ';

- }

- }

-

- if (isset($column_data[2]) && $column_data[2] == 'auto_increment')

- {

- $line .= 'IDENTITY (1, 1) ';

- }

-

- $line .= 'NOT NULL';

- $line .= " ,\n";

- break;

-

- case 'oracle':

- $line .= "\t{$column_name} {$column_type} ";

- $line .= (!is_null($column_data[1])) ? "DEFAULT '{$column_data[1]}' " : '';

-

- // In Oracle empty strings ('') are treated as NULL.

- // Therefore in oracle we allow NULL's for all DEFAULT '' entries

- $line .= ($column_data[1] === '') ? ",\n" : "NOT NULL,\n";

-

- if (isset($column_data[2]) && $column_data[2] == 'auto_increment')

- {

- $generator = $column_name;

- }

- break;

-

- case 'postgres':

- $line .= "\t{$column_name} {$column_type} ";

-

- if (isset($column_data[2]) && $column_data[2] == 'auto_increment')

- {

- $line .= "DEFAULT nextval('{$table_name}_seq'),\n";

-

- // Make sure the sequence will be created before creating the table

- $line = "CREATE SEQUENCE {$table_name}_seq;\n\n" . $line;

- }

- else

- {

- $line .= (!is_null($column_data[1])) ? "DEFAULT '{$column_data[1]}' " : '';

- $line .= "NOT NULL";

-

- // Unsigned? Then add a CHECK contraint

- if (in_array($orig_column_type, $unsigned_types))

- {

- $line .= " CHECK ({$column_name} >= 0)";

- }

-

- $line .= ",\n";

- }

- break;

- }

- }

-

- switch ($dbms)

- {

- case 'firebird':

- // Remove last line delimiter...

- $line = substr($line, 0, -2);

- $line .= "\n);;\n\n";

- break;

-

- case 'mssql':

- $line = substr($line, 0, -2);

- $line .= "\n) ON [PRIMARY]" . (($textimage) ? ' TEXTIMAGE_ON [PRIMARY]' : '') . "\n";

- $line .= "GO\n\n";

- break;

- }

-

- // Write primary key

- if (isset($table_data['PRIMARY_KEY']))

- {

- if (!is_array($table_data['PRIMARY_KEY']))

- {

- $table_data['PRIMARY_KEY'] = array($table_data['PRIMARY_KEY']);

- }

-

- switch ($dbms)

- {

- case 'mysql_40':

- case 'mysql_41':

- case 'postgres':

- $line .= "\tPRIMARY KEY (" . implode(', ', $table_data['PRIMARY_KEY']) . "),\n";

- break;

-

- case 'firebird':

- $line .= "ALTER TABLE {$table_name} ADD PRIMARY KEY (" . implode(', ', $table_data['PRIMARY_KEY']) . ");;\n\n";

- break;

- case 'sqlite':

- if ($generator === false || !in_array($generator, $table_data['PRIMARY_KEY']))

- {

- $line .= "\tPRIMARY KEY (" . implode(', ', $table_data['PRIMARY_KEY']) . "),\n";

- }

- break;

- case 'mssql':

- $line .= "ALTER TABLE [{$table_name}] WITH NOCHECK ADD \n";

- $line .= "\tCONSTRAINT [PK_{$table_name}] PRIMARY KEY CLUSTERED \n";

- $line .= "\t(\n";

- $line .= "\t\t[" . implode("],\n\t\t[", $table_data['PRIMARY_KEY']) . "]\n";

- $line .= "\t) ON [PRIMARY] \n";

- $line .= "GO\n\n";

- break;

- case 'oracle':

- $line .= "\tCONSTRAINT pk_{$table_name} PRIMARY KEY (" . implode(', ', $table_data['PRIMARY_KEY']) . "),\n";

- break;

- }

- }

- switch ($dbms)

- {

- case 'oracle':

- // UNIQUE contrains to be added?

- if (isset($table_data['KEYS']))

- {

- foreach ($table_data['KEYS'] as $key_name => $key_data)

- {

- if (!is_array($key_data[1]))

- {

- $key_data[1] = array($key_data[1]);

- }

-

- if ($key_data[0] == 'UNIQUE')

- {

- $line .= "\tCONSTRAINT u_phpbb_{$key_name} UNIQUE (" . implode(', ', $key_data[1]) . "),\n";

- }

- }

- }

-

- // Remove last line delimiter...

- $line = substr($line, 0, -2);

- $line .= "\n)\n/\n\n";

- break;

-

- case 'postgres':

- // Remove last line delimiter...

- $line = substr($line, 0, -2);

- $line .= "\n);\n\n";

- break;

-

- case 'sqlite':

- // Remove last line delimiter...

- $line = substr($line, 0, -2);

- $line .= "\n);\n\n";

- break;

- }

-

- // Write Keys

- if (isset($table_data['KEYS']))

- {

- foreach ($table_data['KEYS'] as $key_name => $key_data)

- {

- if (!is_array($key_data[1]))

- {

- $key_data[1] = array($key_data[1]);

- }

-

- if (strlen($table_name . $key_name) > 30)

- {

- trigger_error("Index name '${table_name}_$key_name' on table '$table_name' is too long. The maximum is 30 characters.", E_USER_ERROR);

- }

-

- switch ($dbms)

- {

- case 'mysql_40':

- case 'mysql_41':

- $line .= ($key_data[0] == 'INDEX') ? "\tKEY" : '';

- $line .= ($key_data[0] == 'UNIQUE') ? "\tUNIQUE" : '';

- foreach ($key_data[1] as $key => $col_name)

- {

- if (isset($modded_array[$col_name]))

- {

- switch ($modded_array[$col_name])

- {

- case 'text':

- case 'blob':

- $key_data[1][$key] = $col_name . '(255)';

- break;

- }

- }

- }

- $line .= ' ' . $key_name . ' (' . implode(', ', $key_data[1]) . "),\n";

- break;

-

- case 'firebird':

- $line .= ($key_data[0] == 'INDEX') ? 'CREATE INDEX' : '';

- $line .= ($key_data[0] == 'UNIQUE') ? 'CREATE UNIQUE INDEX' : '';

-

- $line .= ' ' . $table_name . '_' . $key_name . ' ON ' . $table_name . '(' . implode(', ', $key_data[1]) . ");;\n";

- break;

-

- case 'mssql':

- $line .= ($key_data[0] == 'INDEX') ? 'CREATE INDEX' : '';

- $line .= ($key_data[0] == 'UNIQUE') ? 'CREATE UNIQUE INDEX' : '';

- $line .= " [{$key_name}] ON [{$table_name}]([" . implode('], [', $key_data[1]) . "]) ON [PRIMARY]\n";

- $line .= "GO\n\n";

- break;

-

- case 'oracle':

- if ($key_data[0] == 'UNIQUE')

- {

- continue;

- }

-

- $line .= ($key_data[0] == 'INDEX') ? 'CREATE INDEX' : '';

-

- $line .= " {$table_name}_{$key_name} ON {$table_name} (" . implode(', ', $key_data[1]) . ")\n";

- $line .= "/\n";

- break;

-

- case 'sqlite':

- $line .= ($key_data[0] == 'INDEX') ? 'CREATE INDEX' : '';

- $line .= ($key_data[0] == 'UNIQUE') ? 'CREATE UNIQUE INDEX' : '';

-

- $line .= " {$table_name}_{$key_name} ON {$table_name} (" . implode(', ', $key_data[1]) . ");\n";

- break;

-

- case 'postgres':

- $line .= ($key_data[0] == 'INDEX') ? 'CREATE INDEX' : '';

- $line .= ($key_data[0] == 'UNIQUE') ? 'CREATE UNIQUE INDEX' : '';

-

- $line .= " {$table_name}_{$key_name} ON {$table_name} (" . implode(', ', $key_data[1]) . ");\n";

- break;

- }

- }

- }

-

- switch ($dbms)

- {

- case 'mysql_40':

- // Remove last line delimiter...

- $line = substr($line, 0, -2);

- $line .= "\n);\n\n";

- break;

-

- case 'mysql_41':

- // Remove last line delimiter...

- $line = substr($line, 0, -2);

- $line .= "\n) CHARACTER SET `utf8` COLLATE `utf8_bin`;\n\n";

- break;

-

- // Create Generator

- case 'firebird':

- if ($generator !== false)

- {

- $line .= "\nCREATE GENERATOR {$table_name}_gen;;\n";

- $line .= 'SET GENERATOR ' . $table_name . "_gen TO 0;;\n\n";

-

- $line .= 'CREATE TRIGGER t_' . $table_name . ' FOR ' . $table_name . "\n";

- $line .= "BEFORE INSERT\nAS\nBEGIN\n";

- $line .= "\tNEW.{$generator} = GEN_ID({$table_name}_gen, 1);\nEND;;\n\n";

- }

- break;

-

- case 'oracle':

- if ($generator !== false)

- {

- $line .= "\nCREATE SEQUENCE {$table_name}_seq\n/\n\n";

-

- $line .= "CREATE OR REPLACE TRIGGER t_{$table_name}\n";

- $line .= "BEFORE INSERT ON {$table_name}\n";

- $line .= "FOR EACH ROW WHEN (\n";

- $line .= "\tnew.{$generator} IS NULL OR new.{$generator} = 0\n";

- $line .= ")\nBEGIN\n";

- $line .= "\tSELECT {$table_name}_seq.nextval\n";

- $line .= "\tINTO :new.{$generator}\n";

- $line .= "\tFROM dual;\nEND;\n/\n\n";

- }

- break;

- }

-

- fwrite($fp, $line . "\n");

- }

-

- $line = '';

-

- // Write custom function at the end for some db's

- switch ($dbms)

- {

- case 'mssql':

- // No need to do this, no transaction support for schema changes

- //$line = "\nCOMMIT\nGO\n\n";

- break;

-

- case 'sqlite':

- $line = "\nCOMMIT;";

- break;

-

- case 'postgres':

- $line = "\nCOMMIT;";

- break;

- }

-

- fwrite($fp, $line);

- fclose($fp);

-}

-

-/**

-* Data put into the header for various dbms

-*/

-function custom_data($dbms)

-{

- switch ($dbms)

- {

- case 'oracle':

- return <<<EOF

-/*

- This first section is optional, however its probably the best method

- of running phpBB on Oracle. If you already have a tablespace and user created

- for phpBB you can leave this section commented out!

-

- The first set of statements create a phpBB tablespace and a phpBB user,

- make sure you change the password of the phpBB user before you run this script!!

-*/

-

-/*

-CREATE TABLESPACE "PHPBB"

- LOGGING

- DATAFILE 'E:\ORACLE\ORADATA\LOCAL\PHPBB.ora'

- SIZE 10M

- AUTOEXTEND ON NEXT 10M

- MAXSIZE 100M;

-

-CREATE USER "PHPBB"

- PROFILE "DEFAULT"

- IDENTIFIED BY "phpbb_password"

- DEFAULT TABLESPACE "PHPBB"

- QUOTA UNLIMITED ON "PHPBB"

- ACCOUNT UNLOCK;

-

-GRANT ANALYZE ANY TO "PHPBB";

-GRANT CREATE SEQUENCE TO "PHPBB";

-GRANT CREATE SESSION TO "PHPBB";

-GRANT CREATE TABLE TO "PHPBB";

-GRANT CREATE TRIGGER TO "PHPBB";

-GRANT CREATE VIEW TO "PHPBB";

-GRANT "CONNECT" TO "PHPBB";

-

-COMMIT;

-DISCONNECT;

-

-CONNECT phpbb/phpbb_password;

-*/

-EOF;

-

- break;

-

- case 'postgres':

- return <<<EOF

-/*

- Domain definition

-*/

-CREATE DOMAIN varchar_ci AS varchar(255) NOT NULL DEFAULT ''::character varying;

-

-/*

- Operation Functions

-*/

-CREATE FUNCTION _varchar_ci_equal(varchar_ci, varchar_ci) RETURNS boolean AS 'SELECT LOWER($1) = LOWER($2)' LANGUAGE SQL STRICT;

-CREATE FUNCTION _varchar_ci_not_equal(varchar_ci, varchar_ci) RETURNS boolean AS 'SELECT LOWER($1) != LOWER($2)' LANGUAGE SQL STRICT;

-CREATE FUNCTION _varchar_ci_less_than(varchar_ci, varchar_ci) RETURNS boolean AS 'SELECT LOWER($1) < LOWER($2)' LANGUAGE SQL STRICT;

-CREATE FUNCTION _varchar_ci_less_equal(varchar_ci, varchar_ci) RETURNS boolean AS 'SELECT LOWER($1) <= LOWER($2)' LANGUAGE SQL STRICT;

-CREATE FUNCTION _varchar_ci_greater_than(varchar_ci, varchar_ci) RETURNS boolean AS 'SELECT LOWER($1) > LOWER($2)' LANGUAGE SQL STRICT;

-CREATE FUNCTION _varchar_ci_greater_equals(varchar_ci, varchar_ci) RETURNS boolean AS 'SELECT LOWER($1) >= LOWER($2)' LANGUAGE SQL STRICT;

-

-/*

- Operators

-*/

-CREATE OPERATOR <(

- PROCEDURE = _varchar_ci_less_than,

- LEFTARG = varchar_ci,

- RIGHTARG = varchar_ci,

- COMMUTATOR = >,

- NEGATOR = >=,

- RESTRICT = scalarltsel,

- JOIN = scalarltjoinsel);

-

-CREATE OPERATOR <=(

- PROCEDURE = _varchar_ci_less_equal,

- LEFTARG = varchar_ci,

- RIGHTARG = varchar_ci,

- COMMUTATOR = >=,

- NEGATOR = >,

- RESTRICT = scalarltsel,

- JOIN = scalarltjoinsel);

-

-CREATE OPERATOR >(

- PROCEDURE = _varchar_ci_greater_than,

- LEFTARG = varchar_ci,

- RIGHTARG = varchar_ci,

- COMMUTATOR = <,

- NEGATOR = <=,

- RESTRICT = scalargtsel,

- JOIN = scalargtjoinsel);

-

-CREATE OPERATOR >=(

- PROCEDURE = _varchar_ci_greater_equals,

- LEFTARG = varchar_ci,

- RIGHTARG = varchar_ci,

- COMMUTATOR = <=,

- NEGATOR = <,

- RESTRICT = scalargtsel,

- JOIN = scalargtjoinsel);

-

-CREATE OPERATOR <>(

- PROCEDURE = _varchar_ci_not_equal,

- LEFTARG = varchar_ci,

- RIGHTARG = varchar_ci,

- COMMUTATOR = <>,

- NEGATOR = =,

- RESTRICT = neqsel,

- JOIN = neqjoinsel);

-

-CREATE OPERATOR =(

- PROCEDURE = _varchar_ci_equal,

- LEFTARG = varchar_ci,

- RIGHTARG = varchar_ci,

- COMMUTATOR = =,

- NEGATOR = <>,

- RESTRICT = eqsel,

- JOIN = eqjoinsel,

- HASHES,

- MERGES,

- SORT1= <);

-

-EOF;

- break;

- }

-

- return '';

-}

-echo 'done';

-* @package phpBB3

-* @copyright (c) 2011 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-add_log('admin', 'LOG_SEARCH_INDEX_CREATED', $search_name);

-* @package phpBB3

-* @copyright (c) 2003 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-*

-<div class="copyright" align="center">Powered by <a href="http://www.phpbb.com/">phpBB</a>&reg; Forum Software &copy; phpBB Group</div>

-<div class="copyright" align="center">Powered by <a href="http://www.phpbb.com/">phpBB</a>&reg; Forum Software &copy; phpBB Group</div>

-<div class="copyright" align="center">Powered by <a href="http://www.phpbb.com/">phpBB</a>&reg; Forum Software &copy; phpBB Group</div>

-* @copyright (c) 2013 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

- echo "Usage: export_events_for_wiki.php COMMAND\n";

- echo "acp:\n";

- echo " Export all events for files in the acp style.\n";

- echo "styles:\n";

- echo " Export all events for files in the prosilver and subsilver2 styles.\n";

- echo "php:\n";

- echo " Export all events for php-files.\n";

-function export_from_eventsmd($phpbb_root_path, $filter)

- $file_content = file_get_contents($phpbb_root_path . 'docs/events.md');

-

- $events = explode("\n\n", $file_content);

- foreach ($events as $event)

- // Last row of the file

- if (strpos($event, "\n===\n") === false) continue;

- list($event_name, $details) = explode("\n===\n", $event);

- if ($filter == 'acp' && strpos($event_name, 'acp_') !== 0) continue;

- if ($filter == 'styles' && strpos($event_name, 'acp_') === 0) continue;

- list($file_details, $details) = explode("\n* Since: ", $details);

- list($version, $explanition) = explode("\n* Purpose: ", $details);

- echo "|- id=\"{$event_name}\"\n";

- echo "| [[#{$event_name}|{$event_name}]] || ";

- if (strpos($file_details, "* Locations:\n + ") === 0)

- {

- $file_details = substr($file_details, strlen("* Locations:\n + "));

- $files = explode("\n + ", $file_details);

- $prosilver = $subsilver2 = array();

- foreach ($files as $file)

- {

- if (strpos($file, 'styles/prosilver/template/') === 0)

- {

- $prosilver[] = substr($file, strlen('styles/prosilver/template/'));

- }

- if (strpos($file, 'styles/subsilver2/template/') === 0)

- {

- $subsilver2[] = substr($file, strlen('styles/subsilver2/template/'));

- }

- }

- echo implode(', ', $prosilver) . ' || ' . implode(', ', $subsilver2);

- }

- else if ($filter == 'acp')

- echo substr($file_details, strlen("* Location: adm/style/"));

- echo " || {$version} || " . str_replace("\n", ' ', $explanition) . "\n";

- }

-}

-function export_from_php($phpbb_root_path)

-{

- $files = get_file_list($phpbb_root_path);

- $events = array();

- foreach ($files as $file)

- {

- $file_events = check_for_events($phpbb_root_path, $file);

- if (!empty($file_events))

- $events = array_merge($events, $file_events);

- }

-

- ksort($events);

- foreach ($events as $event)

- {

- echo '|- id="' . $event['event'] . '"' . "\n";

- echo '| [[#' . $event['event'] . '|' . $event['event'] . ']] || ' . $event['file'] . ' || ' . implode(', ', $event['arguments']) . ' || ' . $event['since'] . ' || ' . $event['description'] . "\n";

- }

-}

-

-function check_for_events($phpbb_root_path, $file)

-{

- $events = array();

- $content = file_get_contents($phpbb_root_path . $file);

-

- if (strpos($content, "phpbb_dispatcher->trigger_event('") || strpos($content, "phpbb_dispatcher->dispatch('"))

- {

- $lines = explode("\n", $content);

- for ($i = 0, $num_lines = sizeof($lines); $i < $num_lines; $i++)

- $event_line = 0;

- if ($found_trigger_event = strpos($lines[$i], "phpbb_dispatcher->trigger_event('"))

- {

- $event_line = $i;

- $event_name = $lines[$event_line];

- $event_name = substr($event_name, $found_trigger_event + strlen("phpbb_dispatcher->trigger_event('"));

- $event_name = substr($event_name, 0, strpos($event_name, "'"));

-

- // Find $vars array lines

- $find_varsarray_line = 1;

- while (strpos($lines[$event_line - $find_varsarray_line], "vars = array('") === false)

- {

- $find_varsarray_line++;

-

- if ($find_varsarray_line > min(50, $event_line))

- {

- throw new LogicException('Can not find "$vars = array()"-line for event "' . $event_name . '" in file "' . $file . '"');

- }

- }

- $varsarray = substr(trim($lines[$event_line - $find_varsarray_line]), strlen("\$vars = array('"), -3);

- $arguments = explode("', '", $varsarray);

-

- // Validate $vars array with @var

- $find_vars_line = 3;

- $doc_vars = array();

- while (strpos(trim($lines[$event_line - $find_vars_line]), '*') === 0)

- {

- $var_line = trim($lines[$event_line - $find_vars_line]);

- $var_line = preg_replace('!\s+!', ' ', $var_line);

- if (strpos($var_line, '* @var ') === 0)

- {

- $doc_line = explode(' ', $var_line);

- if (isset($doc_line[3]))

- {

- $doc_vars[] = $doc_line[3];

- }

- }

- $find_vars_line++;

- }

- if (sizeof($arguments) !== sizeof($doc_vars) && array_intersect($arguments, $doc_vars))

- {

- throw new LogicException('$vars array does not match the list of @var tags for event "' . $event_name . '" in file "' . $file . '"');

- }

- }

- else if ($found_trigger_event = strpos($lines[$i], "phpbb_dispatcher->dispatch('"))

- {

- $event_line = $i;

- $event_name = $lines[$event_line];

- $event_name = substr($event_name, $found_trigger_event + strlen("phpbb_dispatcher->dispatch('"));

- $event_name = substr($event_name, 0, strpos($event_name, "'"));

- $arguments = array();

- }

-

- if ($event_line)

- {

- // Validate @event name

- $find_event_line = 1;

- while (strpos($lines[$event_line - $find_event_line], '* @event ') === false)

- {

- $find_event_line++;

-

- if ($find_event_line > min(50, $event_line))

- {

- throw new LogicException('Can not find @event tag for event "' . $event_name . '" in file "' . $file . '"');

- }

- }

- $event_name_tag = substr(trim($lines[$event_line - $find_event_line]), strlen('* @event '));

- if ($event_name_tag !== $event_name)

- {

- throw new LogicException('Event name does not match @event tag for event "' . $event_name . '" in file "' . $file . '"');

- }

-

- // Find @since

- $find_since_line = 1;

- while (strpos($lines[$event_line - $find_since_line], '* @since ') === false)

- {

- $find_since_line++;

-

- if ($find_since_line > min(50, $event_line))

- {

- throw new LogicException('Can not find @since tag for event "' . $event_name . '" in file "' . $file . '"');

- }

- }

- $since = substr(trim($lines[$event_line - $find_since_line]), strlen('* @since '));

- $since = ($since == '3.1-A1') ? '3.1.0-a1' : $since;

-

- // Find event description line

- $find_description_line = 3;

- while (strpos(trim($lines[$event_line - $find_description_line]), '*') === 0)

- {

- $find_description_line++;

-

- if ($find_description_line > min(50, $event_line))

- {

- throw new LogicException('Can not find description-line for event "' . $event_name . '" in file "' . $file . '"');

- }

- }

- $description = substr(trim($lines[$event_line - $find_description_line + 1]), strlen('* '));

-

- $events[$event_name] = array(

- 'event' => $event_name,

- 'file' => $file,

- 'arguments' => $arguments,

- 'since' => $since,

- 'description' => $description,

- );

- }

- }

-

- return $events;

-}

-

-/**

-* Returns a list of files in that directory

-*

-* Works recursive with any depth

-*

-* @param string $dir Directory to go through

-* @return array List of files (including directories from within $dir

-*/

-function get_file_list($dir, $path = '')

-{

- try

- {

- $iterator = new \DirectoryIterator($dir);

- }

- catch (Exception $e)

- {

- return array();

- }

-

- $files = array();

- foreach ($iterator as $file_info)

- {

- if ($file_info->isDot())

- continue;

- // Do not scan some directories

- if ($file_info->isDir() && (

- ($path == '' && in_array($file_info->getFilename(), array('cache', 'develop', 'ext', 'files', 'language', 'store', 'vendor')))

- || ($path == '/includes' && in_array($file_info->getFilename(), array('utf')))

- || ($path == '/phpbb/db/migration' && in_array($file_info->getFilename(), array('data')))

- || ($path == '/phpbb' && in_array($file_info->getFilename(), array('event')))

- ))

- continue;

- else if ($file_info->isDir())

- $sub_dir = get_file_list($file_info->getPath() . '/' . $file_info->getFilename(), $path . '/' . $file_info->getFilename());

- foreach ($sub_dir as $file)

- {

- $files[] = $file_info->getFilename() . '/' . $file;

- }

- else if ($file_info->getExtension() == 'php')

- $files[] = $file_info->getFilename();

- }

-

- return $files;

-}

-

-function validate_argument_count($arguments, $count)

-{

- if ($arguments <= $count)

- {

- usage();

- }

-}

-

-validate_argument_count($argc, 1);

-$action = $argv[1];

-

-switch ($action)

-{

- case 'acp':

- export_from_eventsmd($phpbb_root_path, 'acp');

- break;

-

- case 'styles':

- export_from_eventsmd($phpbb_root_path, 'styles');

- break;

-

- case 'php':

- export_from_php($phpbb_root_path);

- break;

-* @package phpBB3

-* @copyright (c) 2001, 2003 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-$mode = request_var('mode', 'generate');

-$start = request_var('start', 0);

-* @package phpBB3

-* @copyright (c) 2005 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-* @package phpBB3

-* @copyright (c) 2005 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-* @package phpBB3

-* @copyright (c) 2005 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-download('http://www.unicode.org/Public/UNIDATA/CompositionExclusions.txt');

-download('http://www.unicode.org/Public/UNIDATA/DerivedNormalizationProps.txt');

-require_once($phpbb_root_path . 'includes/utf/utf_normalizer.' . $phpEx);

-$file_contents = array();

-

-* Generate some Hangul/Jamo stuff

-*/

-echo "\nGenerating Hangul and Jamo tables\n";

-for ($i = 0; $i < UNICODE_HANGUL_LCOUNT; ++$i)

-{

- $utf_char = cp_to_utf(UNICODE_HANGUL_LBASE + $i);

- $file_contents['utf_normalizer_common']['utf_jamo_index'][$utf_char] = $i * UNICODE_HANGUL_VCOUNT * UNICODE_HANGUL_TCOUNT + UNICODE_HANGUL_SBASE;

- $file_contents['utf_normalizer_common']['utf_jamo_type'][$utf_char] = UNICODE_JAMO_L;

-}

-

-for ($i = 0; $i < UNICODE_HANGUL_VCOUNT; ++$i)

-{

- $utf_char = cp_to_utf(UNICODE_HANGUL_VBASE + $i);

- $file_contents['utf_normalizer_common']['utf_jamo_index'][$utf_char] = $i * UNICODE_HANGUL_TCOUNT;

- $file_contents['utf_normalizer_common']['utf_jamo_type'][$utf_char] = UNICODE_JAMO_V;

-}

-

-for ($i = 0; $i < UNICODE_HANGUL_TCOUNT; ++$i)

-{

- $utf_char = cp_to_utf(UNICODE_HANGUL_TBASE + $i);

- $file_contents['utf_normalizer_common']['utf_jamo_index'][$utf_char] = $i;

- $file_contents['utf_normalizer_common']['utf_jamo_type'][$utf_char] = UNICODE_JAMO_T;

-}

-

-/**

-* Load the CompositionExclusions table

-*/

-echo "Loading CompositionExclusion\n";

-$fp = fopen('CompositionExclusions.txt', 'rt');

-

-$exclude = array();

-while (!feof($fp))

-{

- $line = fgets($fp, 1024);

-

- if (!strpos(' 0123456789ABCDEFabcdef', $line[0]))

- {

- continue;

- }

-

- $cp = strtok($line, ' ');

-

- if ($pos = strpos($cp, '..'))

- {

- $start = hexdec(substr($cp, 0, $pos));

- $end = hexdec(substr($cp, $pos + 2));

-

- for ($i = $start; $i < $end; ++$i)

- {

- $exclude[$i] = 1;

- }

- }

- else

- {

- $exclude[hexdec($cp)] = 1;

- }

-}

-fclose($fp);

-

-/**

-* Load QuickCheck tables

-*/

-echo "Generating QuickCheck tables\n";

-$fp = fopen('DerivedNormalizationProps.txt', 'rt');

-

-while (!feof($fp))

-{

- $line = fgets($fp, 1024);

-

- if (!strpos(' 0123456789ABCDEFabcdef', $line[0]))

- {

- continue;

- }

-

- $p = array_map('trim', explode(';', strtok($line, '#')));

-

- /**

- * Capture only NFC_QC, NFKC_QC

- */

- if (!preg_match('#^NFK?C_QC$#', $p[1]))

- {

- continue;

- }

-

- if ($pos = strpos($p[0], '..'))

- {

- $start = hexdec(substr($p[0], 0, $pos));

- $end = hexdec(substr($p[0], $pos + 2));

- }

- else

- {

- $start = $end = hexdec($p[0]);

- }

-

- if ($start >= UTF8_HANGUL_FIRST && $end <= UTF8_HANGUL_LAST)

- {

- /**

- * We do not store Hangul syllables in the array

- */

- continue;

- }

-

- if ($p[2] == 'M')

- {

- $val = UNICODE_QC_MAYBE;

- }

- else

- {

- $val = UNICODE_QC_NO;

- }

-

- if ($p[1] == 'NFKC_QC')

- {

- $file = 'utf_nfkc_qc';

- }

- else

- {

- $file = 'utf_nfc_qc';

- }

-

- for ($i = $start; $i <= $end; ++$i)

- {

- /**

- * The vars have the same name as the file: $utf_nfc_qc is in utf_nfc_qc.php

- */

- $file_contents[$file][$file][cp_to_utf($i)] = $val;

- }

-}

-fclose($fp);

-

-/**

-* Do mappings

-*/

-echo "Loading Unicode decomposition mappings\n";

-$fp = fopen($phpbb_root_path . 'develop/UnicodeData.txt', 'rt');

-

-$map = array();

-while (!feof($fp))

-{

- $p = explode(';', fgets($fp, 1024));

- $cp = hexdec($p[0]);

-

- if (!empty($p[3]))

- {

- /**

- * Store combining class > 0

- */

- $file_contents['utf_normalizer_common']['utf_combining_class'][cp_to_utf($cp)] = (int) $p[3];

- }

-

- if (!isset($p[5]) || !preg_match_all('#[0-9A-F]+#', strip_tags($p[5]), $m))

- {

- continue;

- }

-

- if (strpos($p[5], '>'))

- {

- $map['NFKD'][$cp] = implode(' ', array_map('hexdec', $m[0]));

- }

- else

- {

- $map['NFD'][$cp] = $map['NFKD'][$cp] = implode(' ', array_map('hexdec', $m[0]));

- }

-}

-fclose($fp);

-

-/**

-* Build the canonical composition table

-*/

-echo "Generating the Canonical Composition table\n";

-foreach ($map['NFD'] as $cp => $decomp_seq)

-{

- if (!strpos($decomp_seq, ' ') || isset($exclude[$cp]))

- {

- /**

- * Singletons are excluded from canonical composition

- */

- continue;

- }

-

- $utf_seq = implode('', array_map('cp_to_utf', explode(' ', $decomp_seq)));

-

- if (!isset($file_contents['utf_canonical_comp']['utf_canonical_comp'][$utf_seq]))

- {

- $file_contents['utf_canonical_comp']['utf_canonical_comp'][$utf_seq] = cp_to_utf($cp);

- }

-}

-

-/**

-* Decompose the NF[K]D mappings recursively and prepare the file contents

-*/

-echo "Generating the Canonical and Compatibility Decomposition tables\n\n";

-foreach ($map as $type => $decomp_map)

-{

- foreach ($decomp_map as $cp => $decomp_seq)

- {

- $decomp_map[$cp] = decompose($decomp_map, $decomp_seq);

- }

- unset($decomp_seq);

-

- if ($type == 'NFKD')

- {

- $file = 'utf_compatibility_decomp';

- $var = 'utf_compatibility_decomp';

- }

- else

- {

- $file = 'utf_canonical_decomp';

- $var = 'utf_canonical_decomp';

- }

-

- /**

- * Generate the corresponding file

- */

- foreach ($decomp_map as $cp => $decomp_seq)

- {

- $file_contents[$file][$var][cp_to_utf($cp)] = implode('', array_map('cp_to_utf', explode(' ', $decomp_seq)));

- }

-}

-

-/**

-* Generate and/or alter the files

-*/

-foreach ($file_contents as $file => $contents)

-{

- /**

- * Generate a new file

- */

- echo "Writing to $file.$phpEx\n";

-

- if (!$fp = fopen($phpbb_root_path . 'includes/utf/data/' . $file . '.' . $phpEx, 'wb'))

- {

- trigger_error('Cannot open ' . $file . ' for write');

- }

-

- fwrite($fp, '<?php');

- foreach ($contents as $var => $val)

- {

- fwrite($fp, "\n\$GLOBALS[" . my_var_export($var) . ']=' . my_var_export($val) . ";");

- }

- fclose($fp);

-}

-

-echo "\n*** UTF-8 normalization tables done\n\n";

-

-/**

-* Now we'll generate the files needed by the search indexer

-* Decompose a sequence recusively

-*

-* @param array $decomp_map Decomposition mapping, passed by reference

-* @param string $decomp_seq Decomposition sequence as decimal codepoints separated with a space

-* @return string Decomposition sequence, fully decomposed

-*/

-function decompose(&$decomp_map, $decomp_seq)

-{

- $ret = array();

- foreach (explode(' ', $decomp_seq) as $cp)

- {

- if (isset($decomp_map[$cp]))

- {

- $ret[] = decompose($decomp_map, $decomp_map[$cp]);

- }

- else

- {

- $ret[] = $cp;

- }

- }

-

- return implode(' ', $ret);

-}

-

-

-/**

-* Return a UTF string formed from a sequence of codepoints in hexadecimal

-*

-* @param string $seq Sequence of codepoints, separated with a space

-* @return string UTF-8 string

-*/

-function hexseq_to_utf($seq)

-{

- return implode('', array_map('hex_to_utf', explode(' ', $seq)));

-}

-

-/**

-$style = 'subsilver2';

-// @copyright (c) 2005 phpBB Group

-// @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-$mode = request_var('mode', '');

-* @package phpBB3

-* @copyright (c) 2001, 2003 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-switch ($db->sql_layer)

-* @package phpBB3

-* @copyright (c) 2003 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-switch ($db->sql_layer)

-switch ($db->sql_layer)

-<?php

-/**

-*

-* @package phpBB3

-* @copyright (c) 2013 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-*

-*/

-

-// This is to help with creating migration files for new versions

-// Use this to find what migrations are not depended on by any other migration

-// (the current migration tree tips)

-

-define('IN_PHPBB', true);

-$phpbb_root_path = (defined('PHPBB_ROOT_PATH')) ? PHPBB_ROOT_PATH : './../';

-$phpEx = substr(strrchr(__FILE__, '.'), 1);

-include($phpbb_root_path . 'common.' . $phpEx);

-

-$phpbb_extension_manager = $phpbb_container->get('ext.manager');

-$finder = $phpbb_extension_manager->get_finder();

-

-$migrations = $finder

- ->core_path('phpbb/db/migration/data/')

- ->get_classes();

-$tips = $migrations;

-

-foreach ($migrations as $migration_class)

-{

- foreach ($migration_class::depends_on() as $dependency)

- {

- if (($tips_key = array_search($dependency, $tips)) !== false)

- {

- unset($tips[$tips_key]);

- }

- }

-}

-

-foreach ($tips as $migration)

-{

- echo "\t\t\t'{$migration}',\n";

-}

-

-* @package phpBB3

-* @copyright (c) 2006 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-* This file creates SQL statements to upgrade phpBB on MySQL 3.x/4.0.x to 4.1.x/5.x

-require($phpbb_root_path . 'includes/db/schema_data.' . $phpEx);

-require($phpbb_root_path . 'phpbb/db/tools.' . $phpEx);

-$dbms_type_map = phpbb\db\tools::get_dbms_type_map();

-* @copyright (c) 2012 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-* @copyright (c) 2012 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-$search = new $search_type($error, $phpbb_root_path, $phpEx, $auth, $config, $db, $user);

- $chars = array();

-

-/**

-* A wrapper function for the normalizer which takes care of including the class if required and modifies the passed strings

-* to be in NFKC

-*

-* @param mixed $strings a string or an array of strings to normalize

-* @return mixed the normalized content, preserving array keys if array given.

-*/

-function utf8_normalize_nfkc($strings)

-{

- if (empty($strings))

- {

- return $strings;

- }

-

- if (!class_exists('utf_normalizer'))

- {

- global $phpbb_root_path, $phpEx;

- include($phpbb_root_path . 'includes/utf/utf_normalizer.' . $phpEx);

- }

-

- if (!is_array($strings))

- {

- utf_normalizer::nfkc($strings);

- }

- else if (is_array($strings))

- {

- foreach ($strings as $key => $string)

- {

- utf_normalizer::nfkc($strings[$key]);

- }

- }

-

- return $strings;

-}

-$start = request_var('start', 0);

-<?php

-/**

-*

-* @package phpBB3

-* @copyright (c) 2005 phpBB Group

-* @license http://opensource.org/licenses/gpl-2.0.php GNU General Public License v2

-*

-*/

-

-if (php_sapi_name() != 'cli')

-{

- die("This program must be run from the command line.\n");

-}

-

-//

-// Security message:

-//

-// This script is potentially dangerous.

-// Remove or comment the next line (die(".... ) to enable this script.

-// Do NOT FORGET to either remove this script or disable it after you have used it.

-//

-die("Please read the first lines of this script for instructions on how to enable it");

-

-set_time_limit(0);

-error_reporting(E_ALL);

-

-define('IN_PHPBB', true);

-$phpbb_root_path = '../';

-$phpEx = substr(strrchr(__FILE__, '.'), 1);

-

-

-/**

-* Let's download some files we need

-*/

-download('http://www.unicode.org/Public/UNIDATA/NormalizationTest.txt');

-download('http://www.unicode.org/Public/UNIDATA/UnicodeData.txt');

-

-/**

-* Those are the tests we run

-*/

-$test_suite = array(

- /**

- * NFC

- * c2 == NFC(c1) == NFC(c2) == NFC(c3)

- * c4 == NFC(c4) == NFC(c5)

- */

- 'NFC' => array(

- 'c2' => array('c1', 'c2', 'c3'),

- 'c4' => array('c4', 'c5')

- ),

-

- /**

- * NFD

- * c3 == NFD(c1) == NFD(c2) == NFD(c3)

- * c5 == NFD(c4) == NFD(c5)

- */

- 'NFD' => array(

- 'c3' => array('c1', 'c2', 'c3'),

- 'c5' => array('c4', 'c5')

- ),

-

- /**

- * NFKC

- * c4 == NFKC(c1) == NFKC(c2) == NFKC(c3) == NFKC(c4) == NFKC(c5)

- */

- 'NFKC' => array(

- 'c4' => array('c1', 'c2', 'c3', 'c4', 'c5')

- ),

-

- /**

- * NFKD

- * c5 == NFKD(c1) == NFKD(c2) == NFKD(c3) == NFKD(c4) == NFKD(c5)

- */

- 'NFKD' => array(

- 'c5' => array('c1', 'c2', 'c3', 'c4', 'c5')

- )

-);

-

-require_once($phpbb_root_path . 'includes/utf/utf_normalizer.' . $phpEx);

-

-$i = $n = 0;

-$failed = false;

-$tested_chars = array();

-

-$fp = fopen($phpbb_root_path . 'develop/NormalizationTest.txt', 'rb');

-while (!feof($fp))

-{

- $line = fgets($fp);

- ++$n;

-

- if ($line[0] == '@')

- {

- if ($i)

- {

- echo "done\n";

- }

-

- $i = 0;

- echo "\n", substr($line, 1), "\n\n";

- continue;

- }

-

- if (!strpos(' 0123456789ABCDEF', $line[0]))

- {

- continue;

- }

-

- if (++$i % 100 == 0)

- {

- echo $i, ' ';

- }

-

- list($c1, $c2, $c3, $c4, $c5) = explode(';', $line);

-

- if (!strpos($c1, ' '))

- {

- /**

- * We are currently testing a single character, we add it to the list of

- * characters we have processed so that we can exclude it when testing

- * for invariants

- */

- $tested_chars[$c1] = 1;

- }

-

- foreach ($test_suite as $form => $serie)

- {

- foreach ($serie as $expected => $tests)

- {

- $hex_expected = ${$expected};

- $utf_expected = hexseq_to_utf($hex_expected);

-

- foreach ($tests as $test)

- {

- $utf_result = $utf_expected;

- call_user_func(array('utf_normalizer', $form), $utf_result);

-

- if (strcmp($utf_expected, $utf_result))

- {

- $failed = true;

- $hex_result = utf_to_hexseq($utf_result);

-

- echo "\nFAILED $expected == $form($test) ($hex_expected != $hex_result)";

- }

- }

- }

-

- if ($failed)

- {

- die("\n\nFailed at line $n\n");

- }

- }

-}

-fclose($fp);

-

-/**

-* Test for invariants

-*/

-echo "\n\nTesting for invariants...\n\n";

-

-$fp = fopen($phpbb_root_path . 'develop/UnicodeData.txt', 'rt');

-

-$n = 0;

-while (!feof($fp))

-{

- if (++$n % 100 == 0)

- {

- echo $n, ' ';

- }

-

- $line = fgets($fp, 1024);

-

- if (!$pos = strpos($line, ';'))

- {

- continue;

- }

-

- $hex_tested = $hex_expected = substr($line, 0, $pos);

-

- if (isset($tested_chars[$hex_tested]))

- {

- continue;

- }

-

- $utf_expected = hex_to_utf($hex_expected);

-

- if ($utf_expected >= UTF8_SURROGATE_FIRST

- && $utf_expected <= UTF8_SURROGATE_LAST)

- {

- /**

- * Surrogates are illegal on their own, we expect the normalizer

- * to return a replacement char

- */

- $utf_expected = UTF8_REPLACEMENT;

- $hex_expected = utf_to_hexseq($utf_expected);

- }

-

- foreach (array('nfc', 'nfkc', 'nfd', 'nfkd') as $form)

- {

- $utf_result = $utf_expected;

- utf_normalizer::$form($utf_result);

- $hex_result = utf_to_hexseq($utf_result);

-// echo "$form($utf_expected) == $utf_result\n";

-

- if (strcmp($utf_expected, $utf_result))

- {

- $failed = 1;

-

- echo "\nFAILED $hex_expected == $form($hex_tested) ($hex_expected != $hex_result)";

- }

- }

-

- if ($failed)

- {

- die("\n\nFailed at line $n\n");

- }

-}

-fclose($fp);

-

-die("\n\nALL TESTS PASSED SUCCESSFULLY\n");

-

-/**

-* Download a file to the develop/ dir

-*

-* @param string $url URL of the file to download

-* @return null

-*/

-function download($url)

-{

- global $phpbb_root_path;

-

- if (file_exists($phpbb_root_path . 'develop/' . basename($url)))

- {

- return;

- }

-

- echo 'Downloading from ', $url, ' ';

-

- if (!$fpr = fopen($url, 'rb'))

- {

- die("Can't download from $url\nPlease download it yourself and put it in the develop/ dir, kthxbai");

- }

-

- if (!$fpw = fopen($phpbb_root_path . 'develop/' . basename($url), 'wb'))

- {

- die("Can't open develop/" . basename($url) . " for output... please check your permissions or something");

- }

-

- $i = 0;

- $chunk = 32768;

- $done = '';

-

- while (!feof($fpr))

- {

- $i += fwrite($fpw, fread($fpr, $chunk));

- echo str_repeat("\x08", strlen($done));

-

- $done = ($i >> 10) . ' KiB';

- echo $done;

- }

- fclose($fpr);

- fclose($fpw);

-

- echo "\n";

-}

-

-/**

-* Convert a UTF string to a sequence of codepoints in hexadecimal

-*

-* @param string $utf UTF string

-* @return integer Unicode codepoints in hex

-*/

-function utf_to_hexseq($str)

-{

- $pos = 0;

- $len = strlen($str);

- $ret = array();

-

- while ($pos < $len)

- {

- $c = $str[$pos];

- switch ($c & "\xF0")

- {

- case "\xC0":

- case "\xD0":

- $utf_char = substr($str, $pos, 2);

- $pos += 2;

- break;

-

- case "\xE0":

- $utf_char = substr($str, $pos, 3);

- $pos += 3;

- break;

-

- case "\xF0":

- $utf_char = substr($str, $pos, 4);

- $pos += 4;

- break;

-

- default:

- $utf_char = $c;

- ++$pos;

- }

-

- $hex = dechex(utf_to_cp($utf_char));

-

- if (!isset($hex[3]))

- {

- $hex = substr('000' . $hex, -4);

- }

-

- $ret[] = $hex;

- }

-

- return strtr(implode(' ', $ret), 'abcdef', 'ABCDEF');

-}

-

-/**

-* Convert a UTF-8 char to its codepoint

-*

-* @param string $utf_char UTF-8 char

-* @return integer Unicode codepoint

-*/

-function utf_to_cp($utf_char)

-{

- switch (strlen($utf_char))

- {

- case 1:

- return ord($utf_char);

-

- case 2:

- return ((ord($utf_char[0]) & 0x1F) << 6) | (ord($utf_char[1]) & 0x3F);

-

- case 3:

- return ((ord($utf_char[0]) & 0x0F) << 12) | ((ord($utf_char[1]) & 0x3F) << 6) | (ord($utf_char[2]) & 0x3F);

-

- case 4:

- return ((ord($utf_char[0]) & 0x07) << 18) | ((ord($utf_char[1]) & 0x3F) << 12) | ((ord($utf_char[2]) & 0x3F) << 6) | (ord($utf_char[3]) & 0x3F);

-

- default:

- die('UTF-8 chars can only be 1-4 bytes long');

- }

-}

-

-/**

-* Return a UTF string formed from a sequence of codepoints in hexadecimal

-*

-* @param string $seq Sequence of codepoints, separated with a space

-* @return string UTF-8 string

-*/

-function hexseq_to_utf($seq)

-{

- return implode('', array_map('hex_to_utf', explode(' ', $seq)));

-}

-

-/**

-* Convert a codepoint in hexadecimal to a UTF-8 char

-*

-* @param string $hex Codepoint, in hexadecimal

-* @return string UTF-8 char

-*/

-function hex_to_utf($hex)

-{

- return cp_to_utf(hexdec($hex));

-}

-

-/**

-* Convert a codepoint to a UTF-8 char

-*

-* @param integer $cp Unicode codepoint

-* @return string UTF-8 string

-*/

-function cp_to_utf($cp)

-{

- if ($cp > 0xFFFF)

- {

- return chr(0xF0 | ($cp >> 18)) . chr(0x80 | (($cp >> 12) & 0x3F)) . chr(0x80 | (($cp >> 6) & 0x3F)) . chr(0x80 | ($cp & 0x3F));

- }

- else if ($cp > 0x7FF)

- {

- return chr(0xE0 | ($cp >> 12)) . chr(0x80 | (($cp >> 6) & 0x3F)) . chr(0x80 | ($cp & 0x3F));

- }

- else if ($cp > 0x7F)

- {

- return chr(0xC0 | ($cp >> 6)) . chr(0x80 | ($cp & 0x3F));

- }

- else

- {

- return chr($cp);

- }

-}