Funções auxiliares para auditoria

func_auxiliar.sql

create or replace function auditoria.func_application_name(iprocpid int) returns text as
$body$
declare
    tApplicationName text;
begin
    select
        application_name into tApplicationName
    from
        pg_stat_activity
    where
        (pid = iprocpid);
    
    return tApplicationName;
end;
$body$
language 'plpgsql';

create or replace function auditoria.func_application_name() returns text as
$body$
declare
    tApplicationName text;
begin
    tApplicationName := auditoria.func_application_name(pg_backend_pid());
    return tApplicationName;
end;
$body$
language 'plpgsql';

create or replace function auditoria.func_client_hostname(iprocpid int) returns text as
$body$
declare
    tClientHostName text;
begin
    select
        client_hostname into tClientHostName
    from
        pg_stat_activity
    where
        (pid = iprocpid);
    
    return tClientHostName;
end;
$body$
language 'plpgsql';

create or replace function auditoria.func_client_hostname() returns text as
$body$
declare
    tClientHostName text;
begin
    tClientHostName := auditoria.func_client_hostname(pg_backend_pid());
    return tClientHostName;
end;
$body$
language 'plpgsql'