Well, with patch I have the same problem: Index: Makefile =================================================================== RCS file: /home/ncvs/ports/databases/p5-DBD-Pg/Makefile,v retrieving revision 1.61 diff -u -r1.61 Makefile --- Makefile 2 Mar 2005 18:18:57 -0000 1.61 +++ Makefile 6 Mar 2005 09:53:08 -0000 @@ -7,6 +7,7 @@

PORTNAME= DBD-Pg PORTVERSION= 1.40 +PORTREVISION= 1 CATEGORIES= databases perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= DBD Index: files/patch-dbdimp.c =================================================================== RCS file: files/patch-dbdimp.c diff -N files/patch-dbdimp.c --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ files/patch-dbdimp.c 6 Mar 2005 09:35:26 -0000 @@ -0,0 +1,15 @@ +--- dbdimp.c.orig Sun Mar 6 18:34:58 2005 ++++ dbdimp.c Sun Mar 6 18:35:10 2005 +@@ -1662,7 +1662,11 @@ + /* Populate paramTypes */ + paramTypes = calloc(imp_sth->numphs, sizeof(*paramTypes)); + for (x=0,currph=imp_sth->ph; NULL != currph; currph=currph->nextph) { +- paramTypes[x++] = currph->bind_type->type_id; ++ if (BYTEAOID==currph->bind_type->type_id) { ++ paramTypes[x++] = currph->bind_type->type_id; ++ } else { ++ paramTypes[x++] = 0; ++ } + } + + if (dbis->debug >= 10) {

Well, here the error message: DBD::Pg::st execute failed: ERREUR: syntax error sur ou pr?s de ?$1? at character 111

here the code: #!/usr/bin/perl -w use DBD::Pg; use Encode;

if ($#ARGV < 3) { print "Il faut 4 arguments !\n"; exit 1; }

my $jours = $ARGV[0]; my $activite = $ARGV[1]; my $pdf = $ARGV[2]; my $raison = $ARGV[3]; my $noexecute = undef; $noexecute = $ARGV[4] if defined($ARGV[4]);

my $dbname = "HIDE"; my $host = "HIDE"; my $username = "HIDE"; my $password = "HIDE";

my $dbh = DBI->connect("dbi:Pg:dbname=$dbname; host=$host", "$username", "$password", {AutoCommit => 1}) or die ("Impossible de se connecter ? la base !\n");

my $sth = $dbh->prepare("SELECT DISTINCT \"info_IDS\",societe,fax FROM fax_whitelist WHERE (date IS NULL OR date < (timenow() - interval ?)) AND (activite LIKE?) ") or die("Impossible de preparer les requetes !\n");

my $sth2 = $dbh->prepare("INSERT INTO actions_fax (\"info_IDS\",date,commentaire) VALUES (?,now(),?)");

$sth->execute("$jours days",encode("Latin1", $activite));

for (my $i=0; $i<$sth->rows; $i++) { my @result = $sth->fetchrow_array; my $commande="sendfax -i\"$raison\" -F\"Pour $result[1]|%c|Page %%P sur %%T\" -Plow -sa4 -n -N -T\"3\" -k\"now +72 hours\" -d\"$result[2]\" $pdf"; print $commande, "\n"; $sth2->execute($result[0],"Raison: $raison\nFax: $pdf") if not defined $noexecute; }

Well, any idea ? It work fine with the version 1.32_1

Ok see ya

D?couvrez le nouveau Yahoo! Mail : 250 Mo d'espace de stockage pour vos mails ! Cr?ez votre Yahoo! Mail sur http://fr.mail.yahoo.com/