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