<?

$ingres_server = "localhost";
$ingres_db = "imadb";
$ingres_port = "II";
$ingres_user = "grant";
$ingres_pass = "lemonpie";

$ingres_url = "@localhost,tcp_ip,II[grant,lemonpie]::imadb";
$ingres_url = sprintf("@%s,tcp_ip,%s[%s,%s]::%s", $ingres_server, $ingres_port, $ingres_user, $ingres_pass, $ingres_db);

$link = ingres_connect($ingres_url);

if (!is_resource($link) || ingres_errno())
{
    trigger_error ("Failed to connect - " . ingres_errno() . " - " . ingres_error(), E_USER_ERROR);
}

$set_description= <<<EOSQL
set session description = 'Grant\'s IMADB script'
EOSQL;

$sessions = ingres_query($link, $set_description);

$execute_proc= <<<EOSQL
execute procedure ima_set_server_domain
EOSQL;

$sessions = ingres_query($link, $execute_proc);

$execute_proc= <<<EOSQL
execute procedure ima_set_vnode_domain
EOSQL;

$sessions = ingres_query($link, $execute_proc);

ingres_commit($link);

$select_sessions = <<<EOSQL
select *
from ima_server_sessions_lq ss, ima_server_sessions_extra sse, ima_server_sessions_desc ssd
where ss.server = sse.server
and ss.session_id = sse.session_id
and ss.server = ssd.server
and ss.session_id = ssd.session_id
and ss.db_name != ''
EOSQL;

$sessions = ingres_query($link, $select_sessions);

if (!is_resource($sessions))
{
    if (!ingres_errno())
    {
        trigger_error ("Query " . $select_sessions . "- " . ingres_error(),E_USER_ERROR);
    }
    $data["ServerSessions"]["ItemCount"] = 0;
}
else
{
    $data["ServerSessions"]["ItemCount"] = ingres_num_rows($sessions);

    while ($session = ingres_fetch_assoc($sessions))
    {
        $data["ServerSessions"]["data"][] = $session;
    }
}

echo json_encode($data);

ingres_commit($link);