- 论坛徽章:
- 0
|
CREATE OR REPLACE FUNCTION f_http_request() RETURNS trigger AS $$
use strict;
use LWP::UserAgent;
my $url='http://192.168.2.132:8888/sig?action=insert&uid=xxxxx' if $_TD->{event} =~ m/INSERT/i;
my $url='http://192.168.2.132:8888/sig?action=update&uid=xxxxx' if $_TD->{event} =~ m/UPDATE/i;
my $url='http://192.168.2.132:8888/sig?action=delete&uid=xxxxx' if $_TD->{event} =~ m/DELETE/i;
open FILE,">>/tmp/pg_perl.log";
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET=>$url);
my $res = $ua->request($req);
if ($res->is_success){
print FILE "success\n";
}else{
print FILE $res->status_line, "\n";
}
return;
close FILE;
$$ LANGUAGE plperlu;
写的一个触发器函数总时出现400的报错,直接在浏览器或perl中都是ok的。是不是postgresql的plperlu本身就是不支持发起http请求的 |
|