如何通过SQL查询确定Firebird的架构？

Firebird 周五笑话 #8（来自 https://t.me/firebirdsql）

下面的脚本通过 SQL 确定运行中的 Firebird 服务器的当前架构。

通常，您需要查看配置文件 firebird.conf 或 Firebird 服务的设置，才能了解其架构。

然而，在我们高度自动化的测试环境中，有必要使用纯 SQL 来检查架构。

该方法的作者是 Pavel Zotov，Firebird QA 和 IBSurgeon 首席管理员。

为简单起见，代码声明为 execute block，但可以轻松转换为存储过程。

下面的脚本已准备好用于 isql.exe。

`set list on; set term ^; –create or alter procedure sys_get_fb_arch ( – a_connect_with_usr varchar(31) default ‘SYSDBA’ – ,a_connect_with_pwd varchar(31) default ‘masterkey’ –) returns( – fb_arch varchar(50) –) as execute block returns( fb_arch varchar(50) ) as declare a_connect_with_usr varchar(31) default ‘SYSDBA’; declare a_connect_with_pwd varchar(31) default ‘masterkey’; declare cur_server_pid int; declare ext_server_pid int; declare att_protocol varchar(255); declare v_test_sttm varchar(255); declare v_fetches_beg bigint; declare v_fetches_end bigint; begin

-- 用于检测 FB 架构的辅助存储过程。

select a.mon$server_pid, a.mon$remote_protocol
from mon$attachments a
where a.mon$attachment_id = current_connection
into cur_server_pid, att_protocol;

if ( att_protocol is null ) then
    fb_arch = 'Embedded';
else if ( upper(current_user) = upper('SYSDBA')
          and rdb$get_context('SYSTEM','ENGINE_VERSION') NOT starting with '2.5'
          and exists(select * from mon$attachments a
                     where a.mon$remote_protocol is null
                           and upper(a.mon$user) in ( upper('Cache Writer'), upper('Garbage Collector'))
                    )
        ) then
    fb_arch = 'SuperServer';
else
    begin
        v_test_sttm =
            'select a.mon$server_pid + 0*(select 1 from rdb$database)'
            ||' from mon$attachments a '
            ||' where a.mon$attachment_id = current_connection';

        select i.mon$page_fetches
        from mon$io_stats i
        where i.mon$stat_group = 0  -- db_level
        into v_fetches_beg;

        execute statement v_test_sttm
        on external
             'localhost:' || rdb$get_context('SYSTEM', 'DB_NAME')
        as
             user a_connect_with_usr
             password a_connect_with_pwd
             role left('R' || replace(uuid_to_char(gen_uuid()),'-',''),31)
        into ext_server_pid;

        in autonomous transaction do
        select i.mon$page_fetches
        from mon$io_stats i
        where i.mon$stat_group = 0  -- db_level
        into v_fetches_end;

        fb_arch = iif( cur_server_pid is distinct from ext_server_pid,
                       'Classic',
                       iif( v_fetches_beg is not distinct from v_fetches_end,
                            'SuperClassic',
                            'SuperServer'
                          )
                     );
    end

fb_arch = trim(fb_arch) || ' ' || rdb$get_context('SYSTEM','ENGINE_VERSION');

suspend;

end

^ – sys_get_fb_arch set term ;^ commit;`