PL/Perl - Mailing list pgsql-general

From ON.KG
Subject PL/Perl
Date
Msg-id 1906385406.20050111145955@on.kg
Whole thread Raw
In response to PL/Perl  ("ON.KG" <skyer@on.kg>)
Responses Re: PL/Perl  (Ragnar Hafstað <gnari@simnet.is>)
Re: PL/Perl  (Richard Huxton <dev@archonet.com>)
Re: PL/Perl  ("Joshua D. Drake" <jd@commandprompt.com>)
List pgsql-general
Hi All!

I'm trying in 'plperl' forking the processes by 'fork' function,
but receiving this message

Warning: pg_exec(): Query failed: ERROR: creation of function failed: 'fork' trapped by operation mask at (eval 2) line
11.

Does it mean, that in 'plperl' I can't use 'fork' function???

function example
=================
CREATE OR REPLACE FUNCTION perl_fork_test ()
RETURNS int2
AS '
my %pid;

my @urls = (
  "http://domain1.com/index.php",
  "http://domain2.com/index.php"
);

foreach my $url (@urls) {
  unless ($pid{$url} = fork) {
    my $html = qx/GET "$url"/;

    $ENV{TERM} = &my_exit;

    sub my_exit {
      exit(0);
    }
  }
}

sleep 6;
foreach my $url (keys %pid) {
  kill SIGTERM, $pid{$url};
}

wait;

return 1;
'
LANGUAGE 'plperl';
===================
VOLATILE
CALLED ON NULL INPUT
SECURITY INVOKER
===================

Thanx


pgsql-general by date:

Previous
From: Nirmalya Lahiri
Date:
Subject: Private or publice function
Next
From: Richard Huxton
Date:
Subject: Re: Private or publice function