DiGIR Configuration Test

\nERROR (".$errno.")\n"; $emsg .= $errmsg."\n\n"; } function showHelp() { echo '

You need to call this page with a url parameter "resource" equal to the name of the resource you want to check.

'; $ares = getResourceList(DIGIR_CONFIG_DIR.DIGIR_RESOURCE_FILE); if (count($ares) > 0) { echo '

Resources available:

'; echo ''; foreach ($ares as $r=>$f) { echo ''; } echo '
'. $r.''.$f.'
'; } else { echo '

No resources were found in your resources file (' .DIGIR_CONFIG_DIR.DIGIR_RESOURCE_FILE.').

'; echo '

Check that the path to the file is correct. If it is then check that it is formatted correctly. A simple example follows.

'; echo '
'; } echo "
"; echo "

Get PHP information.

\n"; echo ''; die(); } //return 0=ADOdb field name, 1 = status code function checkMetaColumns(&$cn,$c) { $ares = array('','Table not found - check case of table name'); $flds = $cn->MetaColumns($c[1]); if (count($flds) > 0) { $ares[1] = 'Field ('.$c[2].') not found.'; foreach ($flds as $f) { if ($f->name == $c[2]) { $ares[0] = $f->name; $ares[1] = "OK"; return $ares; } elseif (strcasecmp($f->name,$c[2]) == 0) { $ares[0] = $f->name; $ares[1] = "Field found but case doesn't match"; return $ares; } } } return $ares; } //0 = adodb field, 1 = concept name, 2 = field, 3= status function checkColumn($fld,$tbl,&$Config) { $ares = array($fld,'','','Field in table but not listed as concept.'); foreach ($Config->m_concepts as $c) { if ((strcasecmp($tbl,$c[1]) == 0) && (strcasecmp($fld,$c[2]) == 0)) { $ares[1] = $c[3]; $ares[2] = $c[2]; $ares[3] = "Check case of field name for this concept."; if ($c[2] == $fld) $ares[3] = 'OK'; return $ares; } } return $ares; } function getTableList(&$Config) { $ares = array(); foreach ($Config->m_concepts as $c) { if (array_search($c[1],$ares) === FALSE) { array_push($ares,$c[1]); } } return $ares; } ///////////////////////////////////////////////// //Start here ///////////////////////////////////////////////// define('_DEBUG',FALSE); $emsg = ''; if (substr(PHP_OS, 0, 3) == 'WIN') { define('DIGIR_OS_WINDOWS', true); define('DIGIR_OS_UNIX', false); define('DIGIR_OS', 'Windows'); define('PATHSEP',';'); } else { define('DIGIR_OS_WINDOWS', false); define('DIGIR_OS_UNIX', true); define('DIGIR_OS', 'Unix'); // blatant assumption define('PATHSEP',':'); } //force PHP to use only local includes - should all be part of DiGIR as of //version 1.3 (20 Sep 2002) ini_set('include_path','.'.PATHSEP.'pear'); echo "

System

\n"; echo "\n"; echo "\n"; echo "\n"; echo "\n"; echo "\n"; echo "\n"; echo "\n"; echo "
PHP Version".phpversion()."
Operating System".php_uname()."
Web Server".$_SERVER['SERVER_SOFTWARE']."
Interface Version".$_SERVER['GATEWAY_INTERFACE']."
Protocol".$_SERVER['SERVER_PROTOCOL']."
PHP Include Path".ini_get('include_path')."
\n"; ///////////////////////////////////////////////// //try to find the necessary libraries @include_once("localconfig.php"); require_once('DiGIR_globals.php'); require_once('DiGIR_utils.php'); require_once('DiGIR_errors.php'); require_once('DiGIR_config.php'); require_once('xpath/XPath.class.php'); require_once('adodb/adodb.inc.php'); require_once('Cache/HTTP_Request.php'); require_once('Cache/Function.php'); $includes = array('XPath'=>'xpath/XPath.class.php', 'ADOdb'=>'adodb/adodb.inc.php', 'httpCache'=>'Cache/HTTP_Request.php', 'functionCache'=>'Cache/Function.php'); /*echo "

Checking installed libraries...

\n"; $olderrorRep = error_reporting(0); $olderrofunc = set_error_handler('includeErrorHandler'); foreach ($includes as $k=>$v) { echo $k.'...'; $emsg = "OK.
\n"; include_once($v); echo $emsg; flush(); } restore_error_handler($olderrorfunc); error_reporting($olderrorRep); */ ///////////////////////////////////////////////// //Start checking resource configuration echo "

Checking Resource Installation...

\n"; flush(); $resName = getVar('resource',''); if ($resName == '') { showHelp(); } if ($resName == '__phpInfo()') { phpinfo(); die(); } ///////////////////////////////////////////////// //ok process a resource file. //first extract the file name from the resources.xml file echo '

Processing resource name: '.$resName.'

'; $resFile = getResourceConfigFile($resName,DIGIR_CONFIG_DIR.DIGIR_RESOURCE_FILE); if (!$resFile) { echo '

ERROR: No configuration file is associated with resource name = '; echo $resName.'

'; showHelp(); } $resFile = DIGIR_CONFIG_DIR.$resFile; ///////////////////////////////////////////////// //Now load the Config information from the file... echo '

Processing file: '.$resFile."

"; flush(); $cfgBuilder = new ConfigBuilder($resFile); $Config = $cfgBuilder->Config; echo "

Your configuration file contents:

"; $Config->Dump(TRUE); flush(); echo "

Checking Configuration Settings

\n"; ///////////////////////////////////////////////// //Try connecting to the database using ADOdb echo "

Testing connection to database...
\n"; flush(); $cn = &ADONewConnection($Config->connectionType); if (!is_object($cn)) { echo " ERROR: could not create database connection object of type: " .$Config->connectionType."
"; die('can not contine tests.'); } echo "  Created connection object OK.
\n"; flush(); $res = $cn->PConnect($Config->connectionString, $Config->connectionUID, $Config->connectionPWD, $Config->connectionDB); if (!$res) { echo " ERROR: Could not open database connection.
\n"; echo "ADODB:".$cn->errorMsg()."
\n"; die('can not contine tests.'); } echo "  Connected to database OK.
\n"; flush(); ///////////////////////////////////////////////// //check list of tables - match names and case of names echo "

Checking for correct table names...

\n"; $tables = $cn->MetaTables(); echo "\n"; echo ""; $warnCase = FALSE; foreach ($Config->m_tables as $k=>$t) { echo ""; $msg = ''; foreach ($tables as $atab) { if (strcasecmp($t->m_name,$atab) === 0) { echo ""; $msg = ''; if (strcmp($t->m_name,$atab) == 0) { $msg = ''; } elseif (!$warnCase) $warnCase = TRUE; } } echo $msg."\n"; } echo "
Config Table NameADODB Table Name Message
".$t->m_name."Not found in database!".$atab."Check case of name in config fileOK
\n"; if ($warnCase) { echo '

The case of the table names in one or more <table> elements of your configuration file does not match the case of the names reported by the ADOdb library. For some platform + database combinations this is not important, but to minimize the chances of unexpected errors it is always a good idea to ensure that the case of the table names in the configuration file match those that are reported by the ADOdb library. Note that the case of the names reported by ADOdb may not match the case of the names as they appear in your database management application! The simplest solution is generally to update your configuration file and leave the database alone.

'; } flush(); ///////////////////////////////////////////////// //check relationships between tables. echo "

Checking relationships between tables

\n"; echo "
";

print_r($Config->m_tables);

echo "
"; ///////////////////////////////////////////////// //check concept field names and their data types echo "

Checking field names as known by database library...

\n"; //open database connection //Concepts = array: //[0] = type //[1] = table //[2] = field //[3] = name //[4] = zid //[5] = namespace //[6] = boolean searchable? //[7] = boolean returnable? $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC; $tableList = getTableList($Config); foreach ($tableList as $t) { echo "
Table: ".$t."
\n"; $sql = "SELECT * FROM ".$t; $rs = $cn->SelectLimit($sql,1); if (!is_object($rs)) { echo "

$sql produced no result set.
"; echo "ADOdb reports: ".htmlEntities($cn->ErrorMsg())."
"; } else { $arow = $rs->FetchRow(); echo "

\n"; echo "\n"; foreach ($arow as $k=>$v) { $ares = checkColumn($k,$t,$Config); echo ""; echo ""; echo ""; echo ""; echo ""; echo "\n"; } echo "
ADOdb FieldNameFieldStatus
".$ares[0]."".$ares[1]."".$ares[2]."".$ares[3]."
"; $rs->Close(); } } /* echo "\n"; echo "\n"; foreach ($Config->m_concepts as $k=>$c) { echo ""; echo ""; echo ""; echo ""; $ares = checkMetaColumns($cn,$c); echo ""; echo ""; echo "\n"; } echo"
NameTableFieldADOdb FieldStatus
".$c[3]."".$c[1]."".$c[2]."".$ares[0]."".$ares[1]."
\n"; ///////////////////////////////////////////////// //check metatype of data echo "

Checking column metatypes...

\n"; ///////////////////////////////////////////////// //check concept names by comparing with conceptual schema */ $cn->Close(); echo "

Completed.

" ?>