Postgres Test

For this test to work, postgres must be correctly configured on your system and accessible to the webserver user id.

if {[info commands pg_connect] == ""} { html "

\n" html "Bummer. You don't have postgres configured. This is very\n" html "likely if you just brought this server up. See httpd.conf\n" html "and follow the sample commented out at the end of the file.\n" abort_page return } if [catch { set conn [pg_connect template1] set r [pg_exec $conn "select * from pg_database"] if {[pg_result $r -status] == "PGRES_TUPLES_OK"} { html "Success!

\n" html "\n" loop i 0 [pg_result $r -numTuples] { html "\n" } html "
[join [pg_result $r -attributes] ]
[join [pg_result $r -getTuple $i] ]
\n" } else { html "Bummer. Could not read template1 tuples, result was: [pg_result $r -status]" } }] { html "Too bad. Something is definitely broken. The following traceback should help:

" global errorInfo html "

$errorInfo
" html {

If the test failed due to an error like: "pg_connect no such command", then this indicates either a problem in the configuration (access.conf), or something more subtle.} }

Proceed to authentication tests.