All,

We are having some problems with database corruption. We are
running Windows XP SP2 with Firebird 2.0 and ODBC driver 2.00.00.144.
While the database is connected and being serviced we have a clean
script scheduled for 2:00 a.m. that uses the perl DBI to clean old
transactions and alerts from the database. When the script runs on a
corrupt database the script completes and doesn't detect any error. When
the script is exited the FBServer.exe task has gone to rail consuming 88
to 92 % of the CPU and our system becomes unusable. Our system locking
up is our first evidence that a problem exists. There is no evidence of
the failure in Firebird.log. GFix does flesh out there is a problem but
this is post mortem. I have attempted to add debug and set up the SIG
ALRM features in perl employing an eval construct but as soon as a call
is made to fetch() or connect(). The next time the clean scripts are run
the call to fetch() makes the server instance go to rail and doesn't
respond. Halting Firebird Server seems to flesh out that the problem:

DBD::ODBC::st DESTROY failed: [ODBC Firebird Driver][Firebird]Error
reading data

from the connection. (SQL-08S01) [state was 08S01 now 08001]

[ODBC Firebird Driver][Firebird]Unable to complete network request to
host "127.

0.0.1".

Error writing data to the connection.

The following is the output thinned out for the DBI trace on the
two successive calls.



DBI 1.607-ithread default trace level set to 0x0/1 (pid 288) at
cleandb.pl line 14

-> DBI->connect(DBI:ODBC:DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;,
HASH(0x1ae3dd4), ****)

-> DBI->install_driver(ODBC) for MSWin32 perl=5.008009 pid=288
ruid=0 euid=0

install_driver: DBD::ODBC version 1.18 loaded from
C:/Perl/site/lib/DBD/ODBC.pm

<- install_driver= DBI::dr=HASH(0x1b10eb8)

!! warn: 0 CLEARED by call to default_user method

<- default_user(HASH(0x1ae3dd4), undef, ...)= ( HASH(0x1ae3dd4)3keys
undef ) [2 items] at DBI.pm line 626

<- connect('DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;',
HASH(0x1ae3dd4), ...)= DBI::db=HASH(0x1b11284) at DBI.pm line 638

<- STORE('PrintError', 1)= 1 at DBI.pm line 690

<- STORE('AutoCommit', 1)= 1 at DBI.pm line 690

<- STORE('Username', HASH(0x1ae3dd4))= 1 at DBI.pm line 693

<> FETCH('Username')= HASH(0x1ae3dd4)3keys ('Username' from cache)
at DBI.pm line 693

<- connected('DBI:ODBC:DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;',
HASH(0x1ae3dd4))= undef at DBI.pm line 699

<- connect= DBI::db=HASH(0x1b11284)

<- STORE('dbi_connect_closure', CODE(0x1b10e4c))= 1 at DBI.pm line
708

<- prepare('SELECT COUNT(*) FROM ALERTS WHERE MSGTIME < CAST(
'2009-09-15 00:00:00' AS TIMESTAMP);')= DBI::st=HASH(0x1b11368) at
cleandb.pl line 401

<- execute= -1 at cleandb.pl line 402

<- bind_columns(SCALAR(0x19eb1a0))= 1 at cleandb.pl line 403

<- fetch= [ '592' ] row1 at cleandb.pl line 413

<- fetch= undef row1 at cleandb.pl line 418

<- $DBI::errstr= undef

<- finish= 1 at cleandb.pl line 438

<- disconnect= 1 at cleandb.pl line 439

<- DESTROY(DBI::st=HASH(1b11308))= undef at cleandb.pl line 557

<- DESTROY(DBI::db=HASH(1b11224))= undef at cleandb.pl line 557

-> DBI->connect(DBI:ODBC:DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;,
HASH(0x1b11254), ****)

<- default_user(HASH(0x1b11254), undef, ...)= ( HASH(0x1b11254)3keys
undef ) [2 items] at DBI.pm line 626

<- connect('DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;',
HASH(0x1b11254), ...)= DBI::db=HASH(0x1b11020) at DBI.pm line 638

<- STORE('PrintError', 1)= 1 at DBI.pm line 690

<- STORE('AutoCommit', 1)= 1 at DBI.pm line 690

<- STORE('Username', HASH(0x1b11254))= 1 at DBI.pm line 693

<> FETCH('Username')= HASH(0x1b11254)3keys ('Username' from cache)
at DBI.pm line 693

<- connected('DBI:ODBC:DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;',
HASH(0x1b11254))= undef at DBI.pm line 699

<- connect= DBI::db=HASH(0x1b11020)

<- STORE('dbi_connect_closure', CODE(0x1ae3df8))= 1 at DBI.pm line
708

<- prepare('SELECT FIRST 500 ID FROM ALERTS WHERE MSGTIME < CAST(
'2009-09-15 00:00:00' AS TIMESTAMP);')= DBI::st=HASH(0x1a61b98) at
cleandb.pl line 486

<- execute= -1 at cleandb.pl line 487

<- bind_columns(SCALAR(0x1ac9c18))= 1 at cleandb.pl line 488

<- fetch= [ '27497' ] row1 at cleandb.pl line 493

<- do('DELETE FROM ALERTS WHERE ID=27497')= 1 at cleandb.pl line 495

.

.

.

<- do('DELETE FROM ALERTS WHERE ID=27783')= 1 at cleandb.pl line 495

<- fetch= undef row500 at cleandb.pl line 500

<- finish= 1 at cleandb.pl line 519

<- prepare('SELECT FIRST 500 ID FROM ALERTS WHERE MSGTIME < CAST(
'2009-09-15 00:00:00' AS TIMESTAMP);')= DBI::st=HASH(0x1b114b8) at
cleandb.pl line 486

<- DESTROY(DBI::st=HASH(1b10fb4))= undef at cleandb.pl line 487

<- execute= -1 at cleandb.pl line 487

<- bind_columns(SCALAR(0x1ac9c18))= 1 at cleandb.pl line 488

<- fetch= [ '27784' ] row1 at cleandb.pl line 493

<- do('DELETE FROM ALERTS WHERE ID=27784')= 1 at cleandb.pl line 495

<- do('DELETE FROM ALERTS WHERE ID=27785')= 1 at cleandb.pl line 495

.

.

.

<- do('DELETE FROM ALERTS WHERE ID=28005')= 1 at cleandb.pl line 495

<- fetch= undef row92 at cleandb.pl line 500

<- finish= 1 at cleandb.pl line 519

<- disconnect= 1 at cleandb.pl line 536

<- DESTROY(DBI::st=HASH(1b11008))= undef at cleandb.pl line 560

<- DESTROY(DBI::db=HASH(1b11068))= undef at cleandb.pl line 560

<- disconnect_all= '' at DBI.pm line 716

! <- DESTROY(DBI::dr=HASH(1b10f24))= undef during global destruction

DBI 1.607-ithread default trace level set to 0x0/1 (pid 3268) at
cleandb.pl line 14

-> DBI->connect(DBI:ODBC:DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;,
HASH(0x1ae4b54), ****)

-> DBI->install_driver(ODBC) for MSWin32 perl=5.008009 pid=3268
ruid=0 euid=0

install_driver: DBD::ODBC version 1.18 loaded from
C:/Perl/site/lib/DBD/ODBC.pm

<- install_driver= DBI::dr=HASH(0x1b103d8)

!! warn: 0 CLEARED by call to default_user method

<- default_user(HASH(0x1ae4b54), undef, ...)= ( HASH(0x1ae4b54)3keys
undef ) [2 items] at DBI.pm line 626

<- connect('DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;',
HASH(0x1ae4b54), ...)= DBI::db=HASH(0x1b107a4) at DBI.pm line 638

<- STORE('PrintError', 1)= 1 at DBI.pm line 690

<- STORE('AutoCommit', 1)= 1 at DBI.pm line 690

<- STORE('Username', HASH(0x1ae4b54))= 1 at DBI.pm line 693

<> FETCH('Username')= HASH(0x1ae4b54)3keys ('Username' from cache)
at DBI.pm line 693

<- connected('DBI:ODBC:DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;',
HASH(0x1ae4b54))= undef at DBI.pm line 699

<- connect= DBI::db=HASH(0x1b107a4)

<- STORE('dbi_connect_closure', CODE(0x1b1036c))= 1 at DBI.pm line
708

<- prepare('SELECT COUNT(*) FROM TRANS WHERE START < CAST(
'2009-09-15 00:00:00' AS TIMESTAMP);')= DBI::st=HASH(0x1b10888) at
cleandb.pl line 401

<- execute= -1 at cleandb.pl line 402

<- bind_columns(SCALAR(0x19ec228))= 1 at cleandb.pl line 403

<- fetch= [ '12196' ] row1 at cleandb.pl line 413

<- fetch= undef row1 at cleandb.pl line 418

<- $DBI::errstr= undef

<- finish= 1 at cleandb.pl line 438

<- disconnect= 1 at cleandb.pl line 439

<- DESTROY(DBI::st=HASH(1b10828))= undef at cleandb.pl line 557

<- DESTROY(DBI::db=HASH(1b10744))= undef at cleandb.pl line 557

-> DBI->connect(DBI:ODBC:DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;,
HASH(0x1b10774), ****)

<- default_user(HASH(0x1b10774), undef, ...)= ( HASH(0x1b10774)3keys
undef ) [2 items] at DBI.pm line 626

<- connect('DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;',
HASH(0x1b10774), ...)= DBI::db=HASH(0x1b10540) at DBI.pm line 638

<- STORE('PrintError', 1)= 1 at DBI.pm line 690

<- STORE('AutoCommit', 1)= 1 at DBI.pm line 690

<- STORE('Username', HASH(0x1b10774))= 1 at DBI.pm line 693

<> FETCH('Username')= HASH(0x1b10774)3keys ('Username' from cache)
at DBI.pm line 693

<- connected('DBI:ODBC:DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;',
HASH(0x1b10774))= undef at DBI.pm line 699

<- connect= DBI::db=HASH(0x1b10540)

<- STORE('dbi_connect_closure', CODE(0x1ae4b78))= 1 at DBI.pm line
708

<- prepare('SELECT FIRST 500 ID FROM TRANS WHERE START < CAST(
'2009-09-15 00:00:00' AS TIMESTAMP);')= DBI::st=HASH(0x1a5fe88) at
cleandb.pl line 486

<- execute= -1 at cleandb.pl line 487

<- bind_columns(SCALAR(0x1ad4d84))= 1 at cleandb.pl line 488

<- fetch= [ '61286' ] row1 at cleandb.pl line 493

<- do('DELETE FROM TRANS WHERE ID=61286')= 1 at cleandb.pl line 495

<- do('DELETE FROM TRANS WHERE ID=61287')= 1 at cleandb.pl line 495

.

.

.

<- do('DELETE FROM TRANS WHERE ID=60536')= 1 at cleandb.pl line 495

<- fetch= undef row500 at cleandb.pl line 500

<- finish= 1 at cleandb.pl line 519

<- prepare('SELECT FIRST 500 ID FROM TRANS WHERE START < CAST(
'2009-09-15 00:00:00' AS TIMESTAMP);')= DBI::st=HASH(0x1b109d8) at
cleandb.pl line 486

<- DESTROY(DBI::st=HASH(1b104d4))= undef at cleandb.pl line 487

<- execute= -1 at cleandb.pl line 487

<- bind_columns(SCALAR(0x1ad4d84))= 1 at cleandb.pl line 488

<- fetch= [ '60537' ] row1 at cleandb.pl line 493

<- do('DELETE FROM TRANS WHERE ID=60537')= 1 at cleandb.pl line 495

.

.

.



<- do('DELETE FROM TRANS WHERE ID=59638')= 1 at cleandb.pl line 495

<- do('DELETE FROM TRANS WHERE ID=59360')= 1 at cleandb.pl line 495

<- fetch= undef row196 at cleandb.pl line 500

<- finish= 1 at cleandb.pl line 519

<- disconnect= 1 at cleandb.pl line 536

<- DESTROY(DBI::st=HASH(1b10528))= undef at cleandb.pl line 560

<- DESTROY(DBI::db=HASH(1b10588))= undef at cleandb.pl line 560

<- disconnect_all= '' at DBI.pm line 716

! <- DESTROY(DBI::dr=HASH(1b10444))= undef during global destruction

DBI 1.607-ithread default trace level set to 0x0/1 (pid 2080) at
cleandb.pl line 14

-> DBI->connect(DBI:ODBC:DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;,
HASH(0x1ae3dd4), ****)

-> DBI->install_driver(ODBC) for MSWin32 perl=5.008009 pid=2080
ruid=0 euid=0

install_driver: DBD::ODBC version 1.18 loaded from
C:/Perl/site/lib/DBD/ODBC.pm

<- install_driver= DBI::dr=HASH(0x1b10ed8)

!! warn: 0 CLEARED by call to default_user method

<- default_user(HASH(0x1ae3dd4), undef, ...)= ( HASH(0x1ae3dd4)3keys
undef ) [2 items] at DBI.pm line 626

!! ERROR: 1 '[ODBC Firebird Driver]connection rejected by remote
interface (SQL-08004)' (err#0)

<- connect('DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;',
HASH(0x1ae3dd4), ...)= undef at DBI.pm line 638

<- $DBI::errstr= '[ODBC Firebird Driver]connection rejected by
remote interface (SQL-08004)'

DBI connect('DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;','HASH
(0x1ae3dd4)',...) failed: [ODBC Firebird Driver]connection rejected by
remote interface (SQL-08004)

<- $DBI::errstr= '[ODBC Firebird Driver]connection rejected by
remote interface (SQL-08004)'

!! ERROR: 1 CLEARED by call to disconnect_all method

<- disconnect_all= '' at DBI.pm line 716

! <- DESTROY(DBI::dr=HASH(1b10f44))= undef during global destruction

DBI 1.607-ithread default trace level set to 0x0/1 (pid 1100) at
cleandb.pl line 14

-> DBI->connect(DBI:ODBC:DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;,
HASH(0x1ae4b54), ****)

-> DBI->install_driver(ODBC) for MSWin32 perl=5.008009 pid=1100
ruid=0 euid=0

install_driver: DBD::ODBC version 1.18 loaded from
C:/Perl/site/lib/DBD/ODBC.pm

<- install_driver= DBI::dr=HASH(0x1b103d8)

!! warn: 0 CLEARED by call to default_user method

<- default_user(HASH(0x1ae4b54), undef, ...)= ( HASH(0x1ae4b54)3keys
undef ) [2 items] at DBI.pm line 626

<- connect('DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;',
HASH(0x1ae4b54), ...)= DBI::db=HASH(0x1b107a4) at DBI.pm line 638

<- STORE('PrintError', 1)= 1 at DBI.pm line 690

<- STORE('AutoCommit', 1)= 1 at DBI.pm line 690

<- STORE('Username', HASH(0x1ae4b54))= 1 at DBI.pm line 693

<> FETCH('Username')= HASH(0x1ae4b54)3keys ('Username' from cache)
at DBI.pm line 693

<- connected('DBI:ODBC:DRIVER={Firebird/InterBase(r)
driver};DATABASE=127.0.0.1:c:\sdb\sdb.fdb;UID=sysdba;PWD=*******;',
HASH(0x1ae4b54))= undef at DBI.pm line 699

<- connect= DBI::db=HASH(0x1b107a4)

<- STORE('dbi_connect_closure', CODE(0x1b1036c))= 1 at DBI.pm line
708

<- prepare('SELECT COUNT(*) FROM TRANS WHERE START < CAST(
'2009-09-15 00:00:00' AS TIMESTAMP);')= DBI::st=HASH(0x1b10888) at
cleandb.pl line 401

<- execute= -1 at cleandb.pl line 402

<- bind_columns(SCALAR(0x19ec228))= 1 at cleandb.pl line 403



I need a way to be predictive of the fact that FBServer has begun
thrashing so that I can terminate it.

Thanks,





Bill Greenwaldt

Software Engineer

Perceptics

Imaging Technology Solutions

P. (865)671-9286 F. (865)966-9330





[Non-text portions of this message have been removed]