@echo off
set db=%~f1
set fb=C:\Program Files\Firebird\Firebird_3_0

if not exist "%1" exit /b
set db_old=%db%.old

if exist "%db_old%" del "%db_old%"
echo [%time%] Переименование %db%
move "%db%" "%db_old%" > nul

if not "%errorlevel%"=="0" (
  echo [%time%] Ошибка при переименовании БД
  exit /b
)

echo [%time%] Пересоздание БД
set sw=-se localhost:service_mgr -user sysdba -password masterkey
"%fb%\gbak" -b -g %sw% "%db_old%" stdout|"%fb%\gbak" -c %sw% stdin "%db%" -v -st tdrw -z > "%db%.log"

if "%errorlevel%"=="0" (
  echo [%time%] База создана успешно
  exit /b
) 

if exist "%db%" (
  del "%db%"
  if not "%errorlevel%"=="0" (
    echo [%time%] База заблокирована, очистка невозможна
    exit /b
  )
)

move "%db_old%" "%db%" > nul
echo [%time%] Ошибка при создании БД

@call backup_restore database1.fdb
@call backup_restore.bat database2.fdb

execute ibeblock as
begin
  c = ibec_GetDefaultConnection();
  u = ibec_GetConnectionProp(c, 'user');
  p = ibec_GetConnectionProp(c, 'password');
  d = ibec_GetConnectionProp(c, 'dbname');
  f = ibec_GetConnectionProp(c, 'clientlib');

  b = 'execute ibeblock (s variant) as begin ibec_Progress(s); end';

  select list('set statistics index "'||trim(i.rdb$index_name)||'";', '') 
  from rdb$indices i
  join rdb$relations r on r.rdb$relation_name = i.rdb$relation_name
  where i.rdb$system_flag = 0 and i.rdb$index_inactive = 0 and coalesce(r.rdb$relation_type, 0) = 0
  into sql;

  ibec_Progress(ibec_time()||' Пересчет статистики индексов');
  ibec_ExecSQLScript(c, sql, '', b);
  ibec_Progress(ibec_time()||' Сборка мусора');
  ibec_Exec(ibec_ExtractFileDir(f)||'\gfix.exe -sw -z -user '||u||' -pa '||p||' '||d, 'OutFile=log\gfix_'||ibec_ExtractFileName(d)||'.log;ConvertToANSI', b);
  ibec_Progress(ibec_time()||' Окончание сборки мусора');
end;