可以用 PL/Tcl 编写事件触发器函数。PostgreSQL 要求用作事件触发器调用的函数必须声明为无参数、且返回类型为 event_trigger 的函数。
触发器管理器中的信息在以下变量中传递到函数体
$TG_event触发触发器的事件名称。
$TG_tag触发触发器的命令标签。
忽略触发器函数的返回值。
这是一个小小的示例事件触发器函数，它会在每次执行受支持的命令时引发一条 NOTICE 消息
CREATE OR REPLACE FUNCTION tclsnitch() RETURNS event_trigger AS $$ elog NOTICE "tclsnitch: $TG_event $TG_tag" $$ LANGUAGE pltcl; CREATE EVENT TRIGGER tcl_a_snitch ON ddl_command_start EXECUTE FUNCTION tclsnitch();