db-locks.tcl

Location:
/packages/acs-subsite/www/admin/system/db-locks.tcl
Author:
Guenter Ernst guenter.ernst@wu-wien.ac.at
Created:
28.11.2008

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    @author Guenter Ernst guenter.ernst@wu-wien.ac.at
    @creation-date 28.11.2008
} 




set database_name [db_get_database]

db_multirow locks get_data {
    select
        pg_class.relname,
        (select typname from pg_type where pg_type.oid = pg_class.reltype) as typename,
        pg_locks.page,
        pg_locks.tuple,
        pg_locks.virtualxid,
        pg_locks.transactionid, 
        pg_locks.mode, 
        pg_locks.granted,
        pg_locks.virtualtransaction,
        pg_class.relkind,
        pg_locks.pid,
        pg_stat_activity.current_query, 
        pg_stat_activity.query_start, 
        age(now(),pg_stat_activity.query_start) as "age",
        pg_stat_activity.client_addr
    from pg_locks left outer join pg_class on (pg_locks.relation = pg_class.oid)
         left outer join pg_stat_activity on (pg_locks.pid=pg_stat_activity.procpid) 
    where pg_stat_activity.datname = :database_name
    order by procpid, relname;
}

ad_return_template