事件触发器函数可以用 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();