p5-DBD-Pg

[Vincent Bachelier]

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/