On Wednesday 03 December 2003 09:43, Ausrack Webmaster wrote:
> Tried that ...it is definetely the to_email field, not any others that
> is causing
> the problem.
With the table schema you gave, the following seems to work fine for me. Only
changes from your example are to remove quoting on $parent and let
bind_param() sort out types by itself.
#!/usr/bin/perl -w
use DBI;
$dbh = DBI->connect("dbi:Pg:dbname=DBNAMEHERE", "", "");
do_ins('alpha','beta','Blah1');
do_ins('dev@archonet.com','dev@archonet.com','Blah2');
do_ins('<dev@archonet.com>','dev@archonet.com','Blah3');
do_ins('<dev@archonet.com>','<dev@archonet.com>','Blah4');
$dbh->disconnect;
exit;
sub do_ins {
my ($from,$to,$subject) = @_;
my $body = 'BBB';
my $parent = 0;
print STDERR "Trying f/t = $from / $to\n";
$sql="insert into it_contact (email, to_email, subject,
details,modify,parent) values(?,?,?,'$body',now(),$parent)";
$sth = $dbh->prepare($sql);
$sth->bind_param(1, $from);
$sth->bind_param(2, $to);
$sth->bind_param(3, $subject);
$sth->execute;
print STDERR "Ending f/t = $from / $to\n\n";
}
--
Richard Huxton
Archonet Ltd