name ShowConn group "&Learning" command "&ShowConn";

openconnections = qedit.openconnections; --  list readonly
qedit.showscp   = true; -- activate Script Control Panel
writelog(string(openconnections));

repeat for connection in openconnections
   cname              = connection.name;             -- string readonly
   serverversion      = connection.serverversion;    -- string readonly
   hostos             = connection.hostos;           -- string readonly
   hostpid            = connection.hostpid;          -- string readonly
   maxopenfiles       = connection.maxopenfiles;     -- integer readonly
   opencount          = connection.opencount;        -- integer readonly
   hostcwd            = connection.hostcwd;          -- string readonly
   hostgroupaccount   = connection.hostgroupaccount; -- string readonly

   writelog("cname              = " + string(cname));
   writelog("serverversion      = " + string(serverversion));
   writelog("hostos             = " + string(hostos));
   writelog("hostpid            = " + string(hostpid));
   writelog("maxopenfiles       = " + string(maxopenfiles));
   writelog("opencount          = " + string(opencount));
   writelog("hostcwd            = " + string(hostcwd));
   writelog("hostgroupaccount   = " + string(hostgroupaccount));
endrepeat

<<  If there are no open connections the repeat loop will not execute.
    In this case, we display something here to let the user know that the
        script executed as expected.
>>
if openconnections = {} then
   qedit.showscp = false;
   result=dialog("There are no open connections");
endif