/usr/share/doc/fp-units-misc/2.6.4/examples/fpindexer/TestDBindexer.pp is in fp-units-misc-2.6.4 2.6.4+dfsg-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | program TestDBindexer;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, sqldb, dbIndexer, ibconnection, fbindexdb, fpindexer;
{$R *.res}
Function SetupDB : TCustomIndexDB;
Var
IB: TFBIndexDB;
begin
IB := TFBIndexDB.Create(nil);
try
IB.DatabasePath := Paramstr(2);
IB.UserName := 'username';
IB.Password := 'secret';
if not FileExists(IB.DatabasePath) then
IB.CreateDB
else
begin
IB.Connect;
IB.CreateIndexerTables;
end;
except
FreeAndNil(IB);
Raise;
end;
Result:=IB;
end;
Var
DBI : TDBIndexer;
Start : TDateTime;
begin
If ParamCount<>2 then
begin
Writeln('Usage ',ExtractFileName(ParamStr(0)),' dbpath indexdbpath');
Halt(1);
end;
DBI:=TIBIndexer.Create(Nil);
try
DBI.IndexDB:=SetupDB;
try
DBI.Database:=TIBConnection.Create(DBI);
DBI.Database.Transaction:=TSQLTransaction.Create(DBI);
DBI.Database.DatabaseName:=ParamStr(1);
DBI.Database.UserName:='username';
DBI.Database.Password:='SysteemD';
DBI.Database.Connected:=True;
DBI.SkipTables.add('AANWEZIGHEIDSREGISTER');
DBI.SkipTables.add('EDISONZENDING');
Start:=Now;
DBI.IndexDatabase;
Writeln('Finished : ',FormatDateTime('hh:nn:ss',Now-Start));
finally
DBI.IndexDB.Free;
end;
finally
DBI.Free;
end;
end.
|