Hi - I hope this is the right place to post this.

I am having issues using the DBI ping method on a particular server, using perl. I have written the below quick test script :

#!/usr/bin/perl
##
use DBI;

$dbh = DBI->connect("dbi:InterBase:database=XXX;ib_charset=UNICODE_FSS;ib_dialect=3;host=localhost;port=3050", "XXX", "XXX" ) ;


$rv = $dbh->err();
$str = $dbh->errstr();
$str2 = $dbh->state();

printf STDOUT ("1 $rv\n" );
printf STDOUT ("2 $str\n" );
printf STDOUT ("3 $str2\n" );

$PingR = $dbh->ping();

printf STDOUT ("$PingR\n" );

$rv = $dbh->err();
$str = $dbh->errstr();
$str2 = $dbh->state();

printf STDOUT ("1 $rv\n" );
printf STDOUT ("2 $str\n" );
printf STDOUT ("3 $str2\n" );

and it gives me this output :

1
2
3

1 -104
2 Invalid token
-Incorrect parameters provided to internal function INF_database_info

3 S1000


The ping and exactly the same script works fine on other servers. I have no idea if my problem is with the server config or the firebird config. I'm pretty confident it's not perl or any of its libraries, though.