Date: Tue, 8 Mar 2005 08:44:51 +0100 (CET) From: Vincent Bachelier <vincent_bachelier@yahoo.fr> To: perl@freebsd.org Subject: p5-DBD-Pg Message-ID: <20050308074451.90940.qmail@web25308.mail.ukl.yahoo.com>
next in thread | raw e-mail | index | archive | help
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 Vincent Bachelier System: FreeBSD-5.3-RELEASE - AMD64 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/
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20050308074451.90940.qmail>