| {$k} |
{$fname}
";
if (strpos($fparams, "KEY") !== FALSE)
{
$text .= " $fparams";
}
$text .= "
|
";
//$s = 0; - never used
$xfieldnum = -1;
foreach($lines as $l)
{
$xfieldnum++;
list($xl, $tmp) = split("\n", $l, 2); // $tmp should be null
$xl = ltrim(rtrim(stripslashes($xl)));
$xl = preg_replace("/\r?\n$|\r[^\n]$/", "", $xl);
$xl = str_replace(' ',' ',$xl); // Remove double spaces
list($xfname, $xfparams) = split(" ", $xl, 2); // Field name and the rest
if ($xfname == "UNIQUE")
{
list($key, $key1, $keyname, $keyparms) = split(" ", $xl, 4);
$xfname = $key." ".$key1." ".$keyname;
$xfparams = $keyparms;
}
elseif ($xfname == "KEY")
{
list($key, $keyname, $keyparms) = split(" ", $xl, 3);
$xfname = $key." ".$keyname;
$xfparams = $keyparms;
}
if ($xfname != "CREATE" && $xfname != ")")
{
$xfields[$xfname] = 1;
}
$xfparams = preg_replace('/,$/', '', $xfparams);
$fparams = preg_replace('/,$/', '', $fparams);
if ($xfname == $fname)
{ // Field names match - or it could be the word 'KEY' and its name which matches
$ffound = 1;
//echo "Field: ".$xfname." Actuals: ".$xfparams." Expected: ".$fparams."
";
$xfsplit = explode(' ',$xfparams);
$fsplit = explode(' ',$fparams);
$skip = FALSE;
$i = 0;
$fld_err = FALSE;
foreach ($xfsplit as $xf)
{
if ($skip)
{
$skip = FALSE;
// echo " Unskip: ".$xf."
";
}
elseif (strcasecmp(trim($xf),'collate') == 0)
{ // Strip out the collation definition
$skip = TRUE;
// cho "Skip = ".$xf;
}
else
{
// echo "Compare: ".$xf." - ".$fsplit[$i]."
";
// Since VARCHAR and CHAR are interchangeable, convert to CHAR (strictly, VARCHAR(3) and smalller becomes CHAR() )
if (stripos($xf,'VARCHAR') === 0) $xf = substr($xf,3);
if (stripos($fsplit[$i],'VARCHAR') === 0) $fsplit[$i] = substr($fsplit[$i],3);
if (strcasecmp(trim($xf),trim($fsplit[$i])) != 0)
{
$fld_err = TRUE;
//echo "Mismatch: ".$xf." - ".$fsplit[$i]."
";
}
$i++;
}
}
if ($fld_err)
{
$text .= "
".DBLAN_8." |
".DBLAN_9."
{$xfparams}
".DBLAN_10."
{$fparams}
|
".fix_form($k, $fname, $fparams, "alter")." |
";
$fix_active = TRUE;
}
elseif ($fieldnum != $xfieldnum)
{ // Field numbers different - missing field?
$text .= "
".DBLAN_5." ".DBLAN_8." |
".DBLAN_9.": #{$xfieldnum}
".DBLAN_10.": #{$fieldnum}
|
|
";
}
else
{
$text .= "
OK |
|
|
";
/**/
}
}
} // Finished checking one field
if ($ffound == 0)
{
$prev_fname = $fname;
$text .= "
".DBLAN_11." |
".DBLAN_10."
{$fparams}
|
".fix_form($k, $fname, $fparams, "insert", $prev_fname)." |
";
$fix_active = TRUE;
}
$text .= "
";
}
foreach(array_keys($xfields) as $tf)
{
if (!$fields[$tf] && $k != "user_extended")
{
$fix_active = TRUE;
$text .= "