Комплексная автоматизация резервного копирования баз данных Firebird/InterBase на Windows-серверах

@CLS
@ECHO OFF
ECHO #=============================================================================#
ECHO #                                                                             #
ECHO # Firebird/InterBase database backup, test restore, zip and rotate script     #
ECHO # Ver 3.2.7 (11.11.2012)                                                      #
ECHO #                                                                             #
ECHO # Author: arni (email:arnisoft at rambler dot ru)                             #
ECHO #                                                                             #
ECHO # Format:                                                                     #
ECHO # FB_BACKUP [host[/port]:][path]db_file_or_alias  result_dir                  #
ECHO #           [/count:backup_count]  [/space:backup_space_limit]  [/gc]         #
ECHO #           [/restore]  [/compress:level]  [/password:SYSDBA_password]        #
ECHO #           [other_files_to_compress [...]]                                   #
ECHO #                                                                             #
ECHO # Input params:                                                               #
ECHO # [host[/port]:][path]      : local or network, full-specified path or alias  #
ECHO #   db_file_or_alias            to the source database                        #
ECHO # result_dir                : result backup collecting directory              #
ECHO # /count:backup_count       : backup file number to keep (30 by default)      #
ECHO # /space:backup_space_limit : total backup size in bytes (not use by default) #
ECHO #                               you can use suffixes K, M or G.               #
ECHO # /gc                       : need to collect garbage in DB (OFF by default)  #
ECHO # /restore                  : need to do test restore (OFF by default)        #
ECHO # /compress:level           : compress ratio for RAR (2 by default):          #
ECHO #                               0: not compress, 1: fastest, 2: fast,         #
ECHO #                               3: normal, 4: good, 5: best                   #
ECHO # /password:SYSDBA_password : optional SYSDBA password for remote server      #
ECHO #                               (by default uses one from the source code)    #
ECHO # other_files_to_compress   : list of files that must be add to archive       #
ECHO #                                                                             #
ECHO #=============================================================================#


REM ==== Server ====================================================================
SET gbak="C:ProgramsFB25bingbak.exe"
SET ISC_USER=SYSDBA
SET ISC_PASSWORD_LOCAL=masterkey
SET ISC_PASSWORD_REMOTE=


REM ==== Backup/restore preferences ================================================
SET temp_backup_dir=%TEMP%
SET temp_restore_dir=%TEMP%
SET backup_count=30
SET backup_space_limit=0
SET backup_ext=fbk
SET garbage_collection=-g
SET restore=0


REM ==== RAR =======================================================================
SET rar="C:Program FilesWinRARrar.exe"
SET rar_options=a -y -ep -idcd
SET rar_password=
SET rar_compress_ratio=2


REM ==== Mailer (see "Blat" at http://sourceforge.net/projects/blat) ===============
SET blat="C:ProgramsBlat307blat.exe"
SET smtp_server=smtp.mailserver.ru
SET mail_sender=foo@mailserver.ru
SET mail_login=foo
SET mail_password=1234
SET mail_receiver=
SET mail_subject=Fail while database b/r


REM ==== Other preferences =========================================================
SET include_logs_to_archive=1
SET net_send_receiver=
SET error_log=


REM ==== Define database location ==================================================
SET full_db_specification=%~1
ECHO full_db_specification   = %full_db_specification%
REM Devide DB spec to network and local parts
FOR /f "DELIMS=: TOKENS=1*" %%i IN ("%full_db_specification%") DO (
  SET network=%%i
  SET local=%%j
)
REM Test if spec. is alias with no network part
IF "%local%" == "" (
  SET network=
  SET local=%full_db_specification%
)
REM Test if spec. is full specified file with no network part
FOR /f "DELIMS= TOKENS=*" %%i IN ("%local%") DO IF "%local%" == "%%i" (
  SET network=
  SET local=%full_db_specification%
)
ECHO network_specification   = %network%
IF "%network%" GTR "" (
  REM Extract port from network spec (if exists)
  FOR /f "DELIMS=/ TOKENS=1*" %%i IN ("%network%") DO (
    SET host=%%i
    SET port=%%j
    IF "%%j" GTR "" (
      ECHO network_host            = %%i
      ECHO network_port            = %%j
    )
  )
)

REM Test if DB is local or remote
SET service_mgr_host=localhost
SET is_local_db=1
IF "%network%" GTR "" IF "%host%" NEQ "127.0.0.1" IF /i "%host%" NEQ "localhost" SET is_local_db=0
IF %is_local_db% == 1 IF "%network%" GTR "" SET service_mgr_host=%network%

ECHO local_db_specification  = %local%
IF "%local%" == "" (
  SET fail=Param #1 {DB specification} missing!
  GOTO finish
)
REM Extract file (or alias) from local part of spec.
FOR /f %%i IN ("%local%") DO (
  SET local_path=%%~dpi
  SET local_file_or_alias=%%~nxi
)
IF "%local%" NEQ "%local_file_or_alias%" (
  ECHO local_path              = %local_path%
  REM Check DB file exists for local, not aliased specification
  IF %is_local_db% == 1 IF NOT EXIST "%local%" (
    SET fail=Local DB file %local% not found!
    GOTO finish
  )
)
ECHO local_db_file_or_alias  = %local_file_or_alias%


REM ==== Define result directory ===================================================
SET result_dir=%~2
ECHO result_dir              = %result_dir%
IF "%result_dir%" == "" (
  SET fail=Param #2 {backup collecting directory} missing!
  GOTO finish
)
REM Cut the result dir if it is in path-style (ends with separator)
IF "%result_dir:~-1%" == "" SET result_dir=%result_dir:~0,-1%
REM Try to create the result directory if it is not exists yet
IF NOT EXIST "%result_dir%" (
  MD "%result_dir%"
  IF NOT EXIST "%result_dir%" (
    SET fail=Cannot create backup collecting directory!
    GOTO finish
  )
)
REM Test if it is local or remote directory (elementary, may get wrong answer)
SET is_local_result_dir=1
IF "%result_dir:~0,2%" == "\" SET is_local_result_dir=0


REM ==== Use other command line options ============================================
:loop_options
SHIFT
SET next_param=%~2
IF "%next_param%" == "" GOTO print_options
SET prefix=%next_param:~0,1%
IF "%prefix%" == "/" SET next_param=%next_param:~1%
IF "%prefix%" == "-" SET next_param=%next_param:~1%
IF "%next_param%" GTR "" (
  FOR /f "DELIMS=: TOKENS=1*" %%i IN ("%next_param%") DO (
    SET value=%%j
    IF /i "%%i" == "count" IF "%%j" GTR "" GOTO count
    IF /i "%%i" == "space" IF "%%j" GTR "" GOTO space
    IF /i "%%i" == "gc" GOTO gc
    IF /i "%%i" == "restore" GOTO restore
    IF /i "%%i" == "compress" IF "%%j" GTR "" GOTO compress
    IF /i "%%i" == "password" IF "%%j" GTR "" GOTO password
    IF EXIST "%next_param%" GOTO add_file_to_compress
    IF "%prefix%" GTR "/" GOTO add_file_to_compress
    ECHO unknown param found: %next_param%
    GOTO loop_options
  )
) ELSE (
  ECHO empty param found!
  GOTO loop_options
)


REM ==== Define file count in the result dir =======================================
:count
SET /a backup_count=0+%value%
GOTO loop_options


REM ==== Define allowed backup space limit =========================================
:space
SET suffix=%value:~-1%
IF "%suffix%" GTR "9" (
  SET value=%value:~0,-1%
  IF /i "%suffix%" == "K" (
    SET file_size_shift=0
    SET /a value*=1000
  )
  IF /i "%suffix%" == "M" (
    SET file_size_shift=3
    SET /a value*=1000
  )
  IF /i "%suffix%" == "G" (
    SET file_size_shift=6
    SET /a value*=1000
  )
)
SET /a backup_space_limit=0+%value%
GOTO loop_options


REM ==== Define need of garbage collection =========================================
:gc
SET garbage_collection=
IF "%value%" == "0" SET garbage_collection=-g
IF /i "%value%" == "N" SET garbage_collection=-g
IF /i "%value%" == "NO" SET garbage_collection=-g
IF /i "%value%" == "OFF" SET garbage_collection=-g
GOTO loop_options


REM ==== Define need of test restore ===============================================
:restore
SET restore=1
IF "%value%" == "0" SET restore=0
IF /i "%value%" == "N" SET restore=0
IF /i "%value%" == "NO" SET restore=0
IF /i "%value%" == "OFF" SET restore=0
GOTO loop_options


REM ==== Define need of backup compression and compress ratio ======================
:compress
IF "%value%" GEQ "0" IF "%value%" LEQ "5" SET rar_compress_ratio=%value%
GOTO loop_options


REM ==== Define SYSDBA password (in addition or for replace source code given) =====
:password
if "%ISC_PASSWORD_LOCAL%" GTR "" if "%ISC_PASSWORD_REMOTE%" GTR "" (
  SET ISC_PASSWORD_LOCAL=%value%
  SET ISC_PASSWORD_REMOTE=%value%
)
if "%ISC_PASSWORD_LOCAL%" == "" SET ISC_PASSWORD_LOCAL=%value%
if "%ISC_PASSWORD_REMOTE%" == "" SET ISC_PASSWORD_REMOTE=%value%
GOTO loop_options


REM ==== Define file list to compress (in addition to backup and maybe logs) =======
:add_file_to_compress
IF "%backup_files%" == "" (
  SET backup_files="%next_param%"
) ELSE (
  SET backup_files=%backup_files% "%next_param%"
)
GOTO loop_options


REM ==== Print predefined or recognized in command line options ====================
:print_options
IF %backup_count% GTR 0 (
  ECHO backup_count            = %backup_count%
) ELSE (
  ECHO backup_count            = OFF
)
IF "%file_size_shift%" == "" SET file_size_shift=0
IF %backup_space_limit% GTR 0 (
  IF %file_size_shift% == 6 (
    ECHO backup_space_limit      = %backup_space_limit% Mb
  ) ELSE IF %file_size_shift% == 3 (
    ECHO backup_space_limit      = %backup_space_limit% Kb
  ) ELSE ECHO backup_space_limit      = %backup_space_limit% bytes
) ELSE (
  ECHO backup_space_limit      = OFF
)
IF "%garbage_collection%" == "-g" (
  ECHO garbage_collection_flag = OFF
) ELSE (
  ECHO garbage_collection_flag = ON
)
IF %restore% == 0 (
  ECHO test_restore_flag       = OFF
) ELSE (
  ECHO test_restore_flag       = ON
)
IF %rar_compress_ratio% == 0 (
  ECHO backup_compressing      = OFF
) ELSE (
  ECHO backup_compressing      = ON, RAR-ratio=%rar_compress_ratio%
)


REM ==== Define backup file and backup log =========================================
SET datetime=%date:~-2%%date:~3,2%%date:~0,2%_%time:~0,2%%time:~3,2%
SET finish_file=%result_dir%%local_file_or_alias%.%datetime: =0%.%backup_ext%
SET direct_backup=0
IF %rar_compress_ratio% == 0 (
  IF %is_local_result_dir% == 1 SET direct_backup=1
  IF %restore% == 0 SET direct_backup=1
)
IF %direct_backup% == 1 (
  SET backup_file=%finish_file%
) ELSE (
  SET backup_file=%temp_backup_dir%%local_file_or_alias%.%backup_ext%
  IF NOT EXIST "%temp_backup_dir%" (
    MD "%temp_backup_dir%"
    IF NOT EXIST "%temp_backup_dir%" (
      SET fail=Cannot create backup directory!
      GOTO finish
    )
  )
)
ECHO backup_file             = %backup_file%
SET backup_log=%result_dir%%local_file_or_alias%.backup.log
ECHO backup_log              = %backup_log%


REM ==== Define restore file and restore log =======================================
SET restore_file=%temp_restore_dir%%local_file_or_alias%.testrest
IF %restore% GTR 0 (
  IF NOT EXIST "%temp_restore_dir%" (
    MD "%temp_restore_dir%"
    IF NOT EXIST "%temp_restore_dir%" (
      ECHO temp_restore_dir             = %temp_restore_dir%
      SET fail=Cannot create restore directory!
      GOTO finish
    )
  )
  ECHO restore_file            = %restore_file%
  SET restore_log=%result_dir%%local_file_or_alias%.restore.log
)
IF "%restore_log%" GTR "" (
  ECHO restore_log             = %restore_log%
) else (
  SET restore_log=just_a_stub
)


REM ==== Define compresed file =====================================================
SET compressed_file=%finish_file%.rar
IF %rar_compress_ratio% GTR 0 (
  ECHO compressed_file         = %compressed_file%
  SET finish_file=%compressed_file%
)


REM ==== Delete not actual files (over defined count) ==============================
SET /a over=%backup_count%-1
IF %backup_count% == 1 (
  ECHO deleting_old_files      = %result_dir%%local_file_or_alias%.*.%backup_ext%*
  DEL "%result_dir%%local_file_or_alias%.*.%backup_ext%*" /q
) ELSE IF %backup_count% GTR 1 (
  FOR /f "SKIP=%over%" %%f IN ('DIR "%result_dir%%local_file_or_alias%.*.%backup_ext%*" /a:-D /b /o:-N 2^>NUL') DO (
    IF EXIST "%result_dir%%%f" (
      ECHO deleting_old_file       = %result_dir%%%f
      DEL "%result_dir%%%f" /q
    )
  )
)


REM ==== Perform backup ============================================================
IF EXIST "%backup_log%" DEL "%backup_log%" /q 
ECHO backup_start            = %date% %time:~0,8%
SET is_local_backup=0
IF %is_local_db% == 1 (
  IF %is_local_result_dir% == 1 SET is_local_backup=1
  IF %direct_backup% == 0 SET is_local_backup=1
  SET ISC_PASSWORD=%ISC_PASSWORD_LOCAL%
) ELSE (
  SET ISC_PASSWORD=%ISC_PASSWORD_REMOTE%
)
IF "%rar_password%" == "" SET rar_password=%ISC_PASSWORD%
IF %is_local_backup% == 1 (
  ECHO %gbak% -b %garbage_collection% -se %service_mgr_host%:service_mgr %local% "%backup_file%" -v -y "%backup_log%"
  %gbak% -b %garbage_collection% -se %service_mgr_host%:service_mgr %local% "%backup_file%" -v >"%backup_log%" 2>&1
) ELSE (
  ECHO %gbak% -b %garbage_collection% "%full_db_specification%" "%backup_file%" -v -y "%backup_log%"
  %gbak% -b %garbage_collection% "%full_db_specification%" "%backup_file%" -v >"%backup_log%" 2>&1
)
IF %ERRORLEVEL% GTR 0 (
  IF EXIST "%backup_log%" (
    SET fail=Backup fail! See %backup_log% for details.
  ) ELSE (
    SET fail=Backup fail!
  )
  GOTO finish
)
IF NOT EXIST "%backup_log%" (
  SET fail=Backup fail!
  GOTO finish
)


REM ==== Perform test restore ======================================================
IF %restore% GTR 0 (
  IF EXIST "%restore_log%" DEL "%restore_log%" /q
  IF "%ISC_PASSWORD_LOCAL%" GTR "" (
    SET ISC_PASSWORD=%ISC_PASSWORD_LOCAL%
  ) ELSE (
    SET ISC_PASSWORD=%ISC_PASSWORD_REMOTE%
  )
  ECHO restore_start           = %date% %time:~0,8%
  ECHO %gbak% -rep -se %service_mgr_host%:service_mgr "%backup_file%" "%restore_file%" -v -y "%restore_log%"
  %gbak% -rep -se %service_mgr_host%:service_mgr "%backup_file%" "%restore_file%" -v >"%restore_log%" 2>&1
  IF %ERRORLEVEL% GTR 0 (
    IF EXIST "%restore_log%" (
      SET fail=Test restore fail! See %restore_log% for details.
    ) ELSE (
      SET fail=Test restore fail!
    )
    GOTO finish
  )
  IF NOT EXIST "%restore_log%" (
    SET fail=Test restore fail!
    GOTO finish
  )
)


REM ==== Perform RAR-compression or copy backup into destination dir ===============
IF "%rar_password%" GTR "" SET rar_password=-p%rar_password%
SET rar_options=%rar_options% -m%rar_compress_ratio%
SET backup_files="%backup_file%" %backup_files%
IF %include_logs_to_archive% == 1 (
  IF %restore% GTR 0 (
    SET backup_files=%backup_files% "%backup_log%" "%restore_log%"
  ) ELSE (
    SET backup_files=%backup_files% "%backup_log%"
  )
)
IF %rar_compress_ratio% GTR 0 (
  ECHO compressing_start       = %date% %time:~0,8%
  ECHO %rar% %rar_options% "%compressed_file%" %backup_files%
  %rar% %rar_options% %rar_password% "%compressed_file%" %backup_files%
  IF %ERRORLEVEL% GTR 0 (
    SET fail=Compression fail!
    GOTO finish
  )
) ELSE IF %direct_backup% == 0 (
    ECHO copying_start           = %date% %time:~0,8%
    ECHO COPY "%backup_file%" "%finish_file%"
    COPY "%backup_file%" "%finish_file%"
  )


REM ==== Delete not actual files (over defined space) ==============================
IF %backup_space_limit% GTR 0 (
  SETLOCAL EnableDelayedExpansion
  IF %ERRORLEVEL% GTR 0 (
    ECHO You must enable var delayed expansion by CMD.EXE /V:ON or at registry key 
    ECHO SoftwareMicrosoftCommand ProcessorDelayedExpansion: HKLM or HKCU
    GOTO finish
  ) 
  FOR /f %%f IN ('DIR "%result_dir%%local_file_or_alias%.*.%backup_ext%*" /a:-D /b /o:-N') DO (
    FOR %%i in ("%result_dir%%%f") DO (
      SET size=%%~zi
      IF %file_size_shift% == 3 SET size=!size:~0,-3!
      IF %file_size_shift% == 6 SET size=!size:~0,-6!
      IF "!size!" == "" SET size=0
      IF "!total_space!" == "" (
        SET /a total_space=!size!
      ) ELSE (
        IF !total_space! LEQ %backup_space_limit% SET /a total_space+=!size!
        IF !total_space! GTR %backup_space_limit% (
          ECHO deleting_overquota_file = %result_dir%%%f
          DEL "%result_dir%%%f" /q
        )
      )
    )
  )
)


REM ==== Report when fail or exit ==================================================
:finish
IF "%fail%" GTR "" (
  ECHO #=============================================================================#
  ECHO # %fail%
  ECHO #=============================================================================#
  SET fail=%fail%  DB: %full_db_specification%  Dest: %result_dir%
  IF "%net_send_receiver%" GTR "" (
    ECHO NET SEND %net_send_receiver% "%fail%"
    NET SEND %net_send_receiver% "%fail%"
  )
  IF "%blat%" GTR "" IF "%smtp_server%" GTR "" IF "%mail_sender%" GTR "" IF "%mail_login%" GTR "" IF "%mail_receiver%" GTR "" (
    ECHO %blat% -to "%mail_receiver%" -subject "%mail_subject%" -body "%fail%" -server %smtp_server% -f "%mail_sender%" -u "%mail_login%"
    %blat% -to "%mail_receiver%" -subject "%mail_subject%" -body "%fail%" -server %smtp_server% -f "%mail_sender%" -u "%mail_login%" -pw "%mail_password%"
  )
  SET time_ex=%time: =0%
  IF "%error_log%" GTR "" (
    ECHO %date% %time_ex:~0,8%   %fail% >> "%error_log%"
  )
  EXIT /b 1
) ELSE (
  ECHO Finish                  = %date% %time:~0,8%
)

#=============================================================================#
#                                                                             #
# Firebird/InterBase database backup, test restore, zip and rotate script     #
# Ver 3.2.7 (11.11.2012)                                                      #
#                                                                             #
# Author: arni (email:arnisoft at rambler dot ru)                             #
#                                                                             #
# Format:                                                                     #
# FB_BACKUP [host[/port]:][path]db_file_or_alias  result_dir                  #
#           [/count:backup_count]  [/space:backup_space_limit]  [/gc]         #
#           [/restore]  [/compress:level]  [/password:SYSDBA_password]        #
#           [other_files_to_compress [...]]                                   #
#                                                                             #
# Input params:                                                               #
# [host[/port]:][path]      : local or network, full-specified path or alias  #
#   db_file_or_alias            to the source database                        #
# result_dir                : result backup collecting directory              #
# /count:backup_count       : backup file number to keep (30 by default)      #
# /space:backup_space_limit : total backup size in bytes (not use by default) #
#                               you can use suffixes K, M or G.               #
# /gc                       : need to collect garbage in DB (OFF by default)  #
# /restore                  : need to do test restore (OFF by default)        #
# /compress:level           : compress ratio for RAR (2 by default):          #
#                               0: not compress, 1: fastest, 2: fast,         #
#                               3: normal, 4: good, 5: best                   #
# /password:SYSDBA_password : optional SYSDBA password for remote server      #
#                               (by default uses one from the source code)    #
# other_files_to_compress   : list of files that must be add to archive       #
#                                                                             #
#=============================================================================#
full_db_specification   = localhost:p:MSODBMS_ORDERS.FDB
network_specification   = localhost
local_db_specification  = p:MSODBMS_ORDERS.FDB
local_path              = p:MSODB
local_db_file_or_alias  = MS_ORDERS.FDB
result_dir              = \192.168.1.1disk_a1обмен
backup_count            = 30
backup_space_limit      = OFF
garbage_collection_flag = OFF
test_restore_flag       = OFF
backup_compressing      = ON, RAR-ratio=2
backup_file             = C:WINDOWSTEMPMS_ORDERS.FDB.fbk
backup_log              = \192.168.1.1disk_a1обменMS_ORDERS.FDB.backup.log
compressed_file         = \192.168.1.1disk_a1обменMS_ORDERS.FDB.121111_1621.fbk.rar
backup_start            = 11.11.2012 16:21:48
"C:ProgramsFB25bingbak.exe" -b -g -se localhost:service_mgr p:MSODBMS_ORDERS.FDB "C:WINDOWSTEMPMS_ORDERS.FDB.fbk" -v -y "\192.168.1.1disk_a1обменMS_ORDERS.FDB.backup.log"
compressing_start       = 11.11.2012 16:21:51
"C:Program FilesWinRARrar.exe" a -y -ep -idcd -m2 "\192.168.1.1disk_a1обменMS_ORDERS.FDB.121111_1621.fbk.rar" "C:WINDOWSTEMPMS_ORDERS.FDB.fbk"  "\192.168.1.1disk_a1обменMS_ORDERS.FDB.backup.log"
 
Создание архива \192.168.1.1disk_a1обменMS_ORDERS.FDB.121111_1621.fbk.rar
 
Добавление C:WINDOWSTEMPMS_ORDERS.FDB.fbk                                6% 12% 18% 24% 30% 36% 42% 48% 54% 60% 66% 72% 78% 84% 86%  OK 
Добавление \192.168.1.1disk_a1обменMS_ORDERS.FDB.backup.log            92% 98%100%  OK 
Finish                  = 11.11.2012 16:21:51

Хидер содержит ссылку на авторство, текущую версию, но главное — описание формата вызова: какие параметры основные, какие — опциональные, какие дефолтные значения принимают опциональные параметры.
Опциональные параметры могут идти в любой последовательности, и их желательно предварять стандартными знаками ключа командной строки: прямым слешем [/], либо тире[-].

@CLS
@ECHO OFF
ECHO #=============================================================================#
ECHO #                                                                             #
ECHO # Firebird/InterBase database backup, test restore, zip and rotate script     #
ECHO # Ver 3.2.7 (11.11.2012)                                                      #
ECHO #                                                                             #
ECHO # Author: arni (email:arnisoft at rambler dot ru)                             #
ECHO #                                                                             #
ECHO # Format:                                                                     #
ECHO # FB_BACKUP [host[/port]:][path]db_file_or_alias  result_dir                  #
ECHO #           [/count:backup_count]  [/space:backup_space_limit]  [/gc]         #
ECHO #           [/restore]  [/compress:level]  [/password:SYSDBA_password]        #
ECHO #           [other_files_to_compress [...]]                                   #
ECHO #                                                                             #
ECHO # Input params:                                                               #
ECHO # [host[/port]:][path]      : local or network, full-specified path or alias  #
ECHO #   db_file_or_alias            to the source database                        #
ECHO # result_dir                : result backup collecting directory              #
ECHO # /count:backup_count       : backup file number to keep (30 by default)      #
ECHO # /space:backup_space_limit : total backup size in bytes (not use by default) #
ECHO #                               you can use suffixes K, M or G.               #
ECHO # /gc                       : need to collect garbage in DB (OFF by default)  #
ECHO # /restore                  : need to do test restore (OFF by default)        #
ECHO # /compress:level           : compress ratio for RAR (2 by default):          #
ECHO #                               0: not compress, 1: fastest, 2: fast,         #
ECHO #                               3: normal, 4: good, 5: best                   #
ECHO # /password:SYSDBA_password : optional SYSDBA password for remote server      #
ECHO #                               (by default uses one from the source code)    #
ECHO # other_files_to_compress   : list of files that must be add to archive       #
ECHO #                                                                             #
ECHO #=============================================================================#

тут мы видим 5 блоков, отвечающих за разделы:

• параметры сервера;
• параметры b/r;
• параметры архиватора;
• параметры мейлера;
• прочие параметры;

REM ==== Server ====================================================================
SET gbak="C:ProgramsFB25bingbak.exe"
SET ISC_USER=SYSDBA
SET ISC_PASSWORD_LOCAL=masterkey
SET ISC_PASSWORD_REMOTE=
 
 
REM ==== Backup/restore preferences ================================================
SET temp_backup_dir=%TEMP%
SET temp_restore_dir=%TEMP%
SET backup_count=30
SET backup_space_limit=0
SET backup_ext=fbk
SET garbage_collection=-g
SET restore=0
 
 
REM ==== RAR =======================================================================
SET rar="C:Program FilesWinRARrar.exe"
SET rar_options=a -y -ep -idcd
SET rar_password=
SET rar_compress_ratio=2
 
 
REM ==== Mailer (see "Blat" at http://sourceforge.net/projects/blat) ===============
SET blat="C:ProgramsBlat307blat.exe"
SET smtp_server=smtp.mailserver.ru
SET mail_sender=foo@mailserver.ru
SET mail_login=foo
SET mail_password=1234
SET mail_receiver=
SET mail_subject=Fail while database b/r
 
 
REM ==== Other preferences =========================================================
SET include_logs_to_archive=1
SET net_send_receiver=
SET error_log=

где:

• gbak — путь к служебной утилите из комплекта сервера;
• ISC_USER — пользователь, от имени которого будет происходить b/r;
• ISC_PASSWORD_LOCAL — пароль выбранного пользователя на локальной машине;
• ISC_PASSWORD_REMOTE — пароль выбранного пользователя на удаленной машине (лучше передавать параметром /password:xxxxxxxx);
• temp_backup_dir — временный каталог, куда будет производиться бекап до его архивации в каталог назначения; лучше избрать физический диск, не совпадающий с тем, где лежит исходная БД;
• temp_restore_dir — каталог, куда будет производиться тестовый рестор; лучше избрать физический диск, не совпадающий с тем, где лежит исходная БД, и не совпадающий с тем, где лежит файл бекапа;
• backup_ext — дефолтное расширение файла с резервной копией;
• garbage_collection — ключ gbak.exe, отвечающий за дефолтное поведение в отношении сборки мусора во время бекапа (лучше управлять параметром /gc);
• restore — флаг дефолтного поведения в отношении необходимости выполнить тестовое восстановление (лучше управлять параметром /restore);
• rar_options — дефолтные ключи архиватора RAR: «a» — сжать; "-y" — не задавать вопросов; "-ep" — исключить пути; "-idcd" — не мусорить вывод копирайтом и отметкой о готовности;
• rar_password — пароль на архив (если не будет задан, то архиватор использует пароль Firebird-пользователя);
• rar_compress_ratio — степень сжатия по умолчанию (лучше управлять параметром /compress:level)
• blat — путь к мейлеру blat.exe;
• smtp_server — SMTP-сервер, посредством которого будет производиться рассылка;
• mail_sender — почтовый адрес отправителя;
• mail_login — логин отправителя на сервере;
• mail_password — пароль отправителя на сервере;
• mail_receiver — почтовый адрес получателя рассылки;
• mail_subject — заголовок письма рассылки;
• include_logs_to_archive — флаг необходимости поместить логи b/r внутрь архива;
• net_send_receiver — сетевое имя хоста, на который будут рассылаться оповещения о сбоях транспортом NET SEND;
• error_log — файл журнала-накопителя произошедших сбоев;

Тут мы видим:

• Чтение спецификации исходной БД из первого переданного параметра;
• Разделение спецификации на имя хоста, порт, локальный путь и имя файла БД или её алиас;
• Печать частей спецификации на консоль;
• Выяснение, локальная эта БД или удаленная (будет важно позднее, при выборе между классическим бекапом или бекапом через сервисы);

REM ==== Define database location ==================================================
SET full_db_specification=%~1
ECHO full_db_specification   = %full_db_specification%
REM Devide DB spec to network and local parts
FOR /f "DELIMS=: TOKENS=1*" %%i IN ("%full_db_specification%") DO (
  SET network=%%i
  SET local=%%j
)
REM Test if spec. is alias with no network part
IF "%local%" == "" (
  SET network=
  SET local=%full_db_specification%
)
REM Test if spec. is full specified file with no network part
FOR /f "DELIMS= TOKENS=*" %%i IN ("%local%") DO IF "%local%" == "%%i" (
  SET network=
  SET local=%full_db_specification%
)
ECHO network_specification   = %network%
IF "%network%" GTR "" (
  REM Extract port from network spec (if exists)
  FOR /f "DELIMS=/ TOKENS=1*" %%i IN ("%network%") DO (
    SET host=%%i
    SET port=%%j
    IF "%%j" GTR "" (
      ECHO network_host            = %%i
      ECHO network_port            = %%j
    )
  )
)
 
REM Test if DB is local or remote
SET service_mgr_host=localhost
SET is_local_db=1
IF "%network%" GTR "" IF "%host%" NEQ "127.0.0.1" IF /i "%host%" NEQ "localhost" SET is_local_db=0
IF %is_local_db% == 1 IF "%network%" GTR "" SET service_mgr_host=%network%
 
ECHO local_db_specification  = %local%
IF "%local%" == "" (
  SET fail=Param #1 {DB specification} missing!
  GOTO finish
)
REM Extract file (or alias) from local part of spec.
FOR /f %%i IN ("%local%") DO (
  SET local_path=%%~dpi
  SET local_file_or_alias=%%~nxi
)
IF "%local%" NEQ "%local_file_or_alias%" (
  ECHO local_path              = %local_path%
  REM Check DB file exists for local, not aliased specification
  IF %is_local_db% == 1 IF NOT EXIST "%local%" (
    SET fail=Local DB file %local% not found!
    GOTO finish
  )
)
ECHO local_db_file_or_alias  = %local_file_or_alias%

Тут мы видим:

• Чтение результирующего каталога из второго параметра, переданного скрипту;
• Если результирующий каталог отсутствует, он создается;
• Определение расположения каталога: локальный или удаленный (сетевой) — понадобится ниже для выбора оптимальной стратегии бекапа;

REM ==== Define result directory ===================================================
SET result_dir=%~2
ECHO result_dir              = %result_dir%
IF "%result_dir%" == "" (
  SET fail=Param #2 {backup collecting directory} missing!
  GOTO finish
)
REM Cut the result dir if it is in path-style (ends with separator)
IF "%result_dir:~-1%" == "" SET result_dir=%result_dir:~0,-1%
REM Try to create the result directory if it is not exists yet
IF NOT EXIST "%result_dir%" (
  MD "%result_dir%"
  IF NOT EXIST "%result_dir%" (
    SET fail=Cannot create backup collecting directory!
    GOTO finish
  )
)
REM Test if it is local or remote directory (elementary, may get wrong answer)
SET is_local_result_dir=1
IF "%result_dir:~0,2%" == "\" SET is_local_result_dir=0

Данный блок имеет код обработки ошибок, при возникновении которых в переменную пишется суть сбоя, после чего управление передается в конец скрипта — в блок обратной связи с админом. Подобные обработчики встречаются во всех последующих блоках, и далее я не буду их специально упоминать.

Тут мы видим блоки:

• чтение очередного параметра;
• разделение ключа на имя и значение;
• распознание ключа, переход к его обработке;
• установка количества хранимых копий;
• установка совокупного объема копий;
• управление флагом сбора мусора в БД;
• управление флагом тестового восстановления;
• определение коэффициента сжатия архиватором;
• сохранение пароля SYSDBA для удаленного сервера;
• чтение списка дополнительных файлов для помещения в архив;

REM ==== Use other command line options ============================================
:loop_options
SHIFT
SET next_param=%~2
IF "%next_param%" == "" GOTO print_options
SET prefix=%next_param:~0,1%
IF "%prefix%" == "/" SET next_param=%next_param:~1%
IF "%prefix%" == "-" SET next_param=%next_param:~1%
IF "%next_param%" GTR "" (
  FOR /f "DELIMS=: TOKENS=1*" %%i IN ("%next_param%") DO (
    SET value=%%j
    IF /i "%%i" == "count" IF "%%j" GTR "" GOTO count
    IF /i "%%i" == "space" IF "%%j" GTR "" GOTO space
    IF /i "%%i" == "gc" GOTO gc
    IF /i "%%i" == "restore" GOTO restore
    IF /i "%%i" == "compress" IF "%%j" GTR "" GOTO compress
    IF /i "%%i" == "password" IF "%%j" GTR "" GOTO password
    IF EXIST "%next_param%" GOTO add_file_to_compress
    IF "%prefix%" GTR "/" GOTO add_file_to_compress
    ECHO unknown param found: %next_param%
    GOTO loop_options
  )
) ELSE (
  ECHO empty param found!
  GOTO loop_options
)
 
 
REM ==== Define file count in the result dir =======================================
:count
SET /a backup_count=0+%value%
GOTO loop_options
 
 
REM ==== Define allowed backup space limit =========================================
:space
SET suffix=%value:~-1%
IF "%suffix%" GTR "9" (
  SET value=%value:~0,-1%
  IF /i "%suffix%" == "K" (
    SET file_size_shift=0
    SET /a value*=1000
  )
  IF /i "%suffix%" == "M" (
    SET file_size_shift=3
    SET /a value*=1000
  )
  IF /i "%suffix%" == "G" (
    SET file_size_shift=6
    SET /a value*=1000
  )
)
SET /a backup_space_limit=0+%value%
GOTO loop_options
 
 
REM ==== Define need of garbage collection =========================================
:gc
SET garbage_collection=
IF "%value%" == "0" SET garbage_collection=-g
IF /i "%value%" == "N" SET garbage_collection=-g
IF /i "%value%" == "NO" SET garbage_collection=-g
IF /i "%value%" == "OFF" SET garbage_collection=-g
GOTO loop_options
 
 
REM ==== Define need of test restore ===============================================
:restore
SET restore=1
IF "%value%" == "0" SET restore=0
IF /i "%value%" == "N" SET restore=0
IF /i "%value%" == "NO" SET restore=0
IF /i "%value%" == "OFF" SET restore=0
GOTO loop_options
 
 
REM ==== Define need of backup compression and compress ratio ======================
:compress
IF "%value%" GEQ "0" IF "%value%" LEQ "5" SET rar_compress_ratio=%value%
GOTO loop_options
 
 
REM ==== Define SYSDBA password (in addition or for replace source code given) =====
:password
if "%ISC_PASSWORD_LOCAL%" GTR "" if "%ISC_PASSWORD_REMOTE%" GTR "" (
  SET ISC_PASSWORD_LOCAL=%value%
  SET ISC_PASSWORD_REMOTE=%value%
)
if "%ISC_PASSWORD_LOCAL%" == "" SET ISC_PASSWORD_LOCAL=%value%
if "%ISC_PASSWORD_REMOTE%" == "" SET ISC_PASSWORD_REMOTE=%value%
GOTO loop_options
 
 
REM ==== Define file list to compress (in addition to backup and maybe logs) =======
:add_file_to_compress
IF "%backup_files%" == "" (
  SET backup_files="%next_param%"
) ELSE (
  SET backup_files=%backup_files% "%next_param%"
)
GOTO loop_options

Примечание:

• Булевы флаги для рестора или сбора мусора принимают следующие значения: Ложь=0,N,NO,OFF; Истина=1,Y,YES,ON.
• Совокупный объем хранимых данных передается в байтах. Но т.к. числа в командном процессоре ограничены 32-битным целым, то значения свыше 1 Гб лучше передавать, указывая суффикс килобайта (K), мегабайта (M) или гигабайта (G). Например: /space:1200К, /space:280M, /space:12G. В этом блоке также можно наблюдать код, который усекает масштаб единиц хранения, позволяя в дальнейшем оперировать объемами, сверх 32-битной арифметики командного процессора.
• Переданный пароль трактуется следующим образом: если в исходнике определены значения и переменной ISC_PASSWORD_LOCAL (локальный) и переменной ISC_PASSWORD_REMOTE (удаленный), то переданное значение переопределяет обе эти переменные. В остальных случаях (если хотя бы одна переменная не определена), переданное значение записывается только в пустую переменную, а заполненная сохраняет свое предопределенное значение.
• Дополнительные файлы для сжатия (или маски файлов) передаются в естественном виде, без символа ключа [/].

Тут мы видим:

• вывод количества хранимых копий;
• вывод совокупного пространства для хранения копий;
• вывод флага сбора мусора;
• вывод флага тестового восстановления;
• вывод признака архивации и используемого коэффициента компрессии;

REM ==== Print predefined or recognized in command line options ====================
:print_options
IF %backup_count% GTR 0 (
  ECHO backup_count            = %backup_count%
) ELSE (
  ECHO backup_count            = OFF
)
IF "%file_size_shift%" == "" SET file_size_shift=0
IF %backup_space_limit% GTR 0 (
  IF %file_size_shift% == 6 (
    ECHO backup_space_limit      = %backup_space_limit% Mb
  ) ELSE IF %file_size_shift% == 3 (
    ECHO backup_space_limit      = %backup_space_limit% Kb
  ) ELSE ECHO backup_space_limit      = %backup_space_limit% bytes
) ELSE (
  ECHO backup_space_limit      = OFF
)
IF "%garbage_collection%" == "-g" (
  ECHO garbage_collection_flag = OFF
) ELSE (
  ECHO garbage_collection_flag = ON
)
IF %restore% == 0 (
  ECHO test_restore_flag       = OFF
) ELSE (
  ECHO test_restore_flag       = ON
)
IF %rar_compress_ratio% == 0 (
  ECHO backup_compressing      = OFF
) ELSE (
  ECHO backup_compressing      = ON, RAR-ratio=%rar_compress_ratio%
)

Тут мы видим:

• снятие временной метки, чтобы использовать её в имени файла бекапа;
• определение того, будем ли мы делать бекап непосредственно в каталог назначения, или сначала во временное хранилище для последующего восстановления, сжатия и т.д.;
• определение полной спецификации файла бекапа;
• определение полной спецификации лога бекапа;
• вывод рассчитанных параметров на печать;
• определение и вывод на печать спецификации файла рестора и лога рестора, если флаг рестора поднят;
• определение и вывод на печать файла архива, если сжатие затребовано;

REM ==== Define backup file and backup log =========================================
SET datetime=%date:~-2%%date:~3,2%%date:~0,2%_%time:~0,2%%time:~3,2%
SET finish_file=%result_dir%%local_file_or_alias%.%datetime: =0%.%backup_ext%
SET direct_backup=0
IF %rar_compress_ratio% == 0 (
  IF %is_local_result_dir% == 1 SET direct_backup=1
  IF %restore% == 0 SET direct_backup=1
)
IF %direct_backup% == 1 (
  SET backup_file=%finish_file%
) ELSE (
  SET backup_file=%temp_backup_dir%%local_file_or_alias%.%backup_ext%
  IF NOT EXIST "%temp_backup_dir%" (
    MD "%temp_backup_dir%"
    IF NOT EXIST "%temp_backup_dir%" (
      SET fail=Cannot create backup directory!
      GOTO finish
    )
  )
)
ECHO backup_file             = %backup_file%
SET backup_log=%result_dir%%local_file_or_alias%.backup.log
ECHO backup_log              = %backup_log%
 
 
REM ==== Define restore file and restore log =======================================
SET restore_file=%temp_restore_dir%%local_file_or_alias%.testrest
IF %restore% GTR 0 (
  IF NOT EXIST "%temp_restore_dir%" (
    MD "%temp_restore_dir%"
    IF NOT EXIST "%temp_restore_dir%" (
      ECHO temp_restore_dir             = %temp_restore_dir%
      SET fail=Cannot create restore directory!
      GOTO finish
    )
  )
  ECHO restore_file            = %restore_file%
  SET restore_log=%result_dir%%local_file_or_alias%.restore.log
)
IF "%restore_log%" GTR "" (
  ECHO restore_log             = %restore_log%
) else (
  SET restore_log=just_a_stub
)
 
 
REM ==== Define compresed file =====================================================
SET compressed_file=%finish_file%.rar
IF %rar_compress_ratio% GTR 0 (
  ECHO compressed_file         = %compressed_file%
  SET finish_file=%compressed_file%
)

REM ==== Delete not actual files (over defined count) ==============================
SET /a over=%backup_count%-1
IF %backup_count% == 1 (
  ECHO deleting_old_files      = %result_dir%%local_file_or_alias%.*.%backup_ext%*
  DEL "%result_dir%%local_file_or_alias%.*.%backup_ext%*" /q
) ELSE IF %backup_count% GTR 1 (
  FOR /f "SKIP=%over%" %%f IN ('DIR "%result_dir%%local_file_or_alias%.*.%backup_ext%*" /a:-D /b /o:-N 2^>NUL') DO (
    IF EXIST "%result_dir%%%f" (
      ECHO deleting_old_file       = %result_dir%%%f
      DEL "%result_dir%%%f" /q
    )
  )
)

Тут мы видим:

• удаление предыдущего лога бекапа (gbak.exe вернет ошибку, если наткнется на старый лог);
• в зависимости от того, распознана ли база как локальная или как удаленная, выбирается пароль;
• в зависимости от расположения базы и расположения каталога для бекапа, определяем возможность использовать максимально быструю стратегию — бекап через сервисы, либо классический бекап в противном случае;

REM ==== Perform backup ============================================================
IF EXIST "%backup_log%" DEL "%backup_log%" /q 
ECHO backup_start            = %date% %time:~0,8%
SET is_local_backup=0
IF %is_local_db% == 1 (
  IF %is_local_result_dir% == 1 SET is_local_backup=1
  IF %direct_backup% == 0 SET is_local_backup=1
  SET ISC_PASSWORD=%ISC_PASSWORD_LOCAL%
) ELSE (
  SET ISC_PASSWORD=%ISC_PASSWORD_REMOTE%
)
IF "%rar_password%" == "" SET rar_password=%ISC_PASSWORD%
IF %is_local_backup% == 1 (
  ECHO %gbak% -b %garbage_collection% -se %service_mgr_host%:service_mgr %local% "%backup_file%" -v -y "%backup_log%"
  %gbak% -b %garbage_collection% -se %service_mgr_host%:service_mgr %local% "%backup_file%" -v >"%backup_log%" 2>&1
) ELSE (
  ECHO %gbak% -b %garbage_collection% "%full_db_specification%" "%backup_file%" -v -y "%backup_log%"
  %gbak% -b %garbage_collection% "%full_db_specification%" "%backup_file%" -v >"%backup_log%" 2>&1
)
IF %ERRORLEVEL% GTR 0 (
  IF EXIST "%backup_log%" (
    SET fail=Backup fail! See %backup_log% for details.
  ) ELSE (
    SET fail=Backup fail!
  )
  GOTO finish
)
IF NOT EXIST "%backup_log%" (
  SET fail=Backup fail!
  GOTO finish
)

Тут мы видим:

• удаление предыдущего лога рестора (gbak.exe вернет ошибку, если наткнется на старый лог);
• выполнение восстановления (всегда через сервисы, т.к. и файл бекапа и тестовая БД локальны в этой ветви сценария);

REM ==== Perform test restore ======================================================
IF %restore% GTR 0 (
  IF EXIST "%restore_log%" DEL "%restore_log%" /q
  IF "%ISC_PASSWORD_LOCAL%" GTR "" (
    SET ISC_PASSWORD=%ISC_PASSWORD_LOCAL%
  ) ELSE (
    SET ISC_PASSWORD=%ISC_PASSWORD_REMOTE%
  )
  ECHO restore_start           = %date% %time:~0,8%
  ECHO %gbak% -rep -se %service_mgr_host%:service_mgr "%backup_file%" "%restore_file%" -v -y "%restore_log%"
  %gbak% -rep -se %service_mgr_host%:service_mgr "%backup_file%" "%restore_file%" -v >"%restore_log%" 2>&1
  IF %ERRORLEVEL% GTR 0 (
    IF EXIST "%restore_log%" (
      SET fail=Test restore fail! See %restore_log% for details.
    ) ELSE (
      SET fail=Test restore fail!
    )
    GOTO finish
  )
  IF NOT EXIST "%restore_log%" (
    SET fail=Test restore fail!
    GOTO finish
  )
)

Примечание:
Если у вас InterBase, Yaffil или Firebird младше версии 2.0, флаг восстановления -rep нужно заменить на -r

Тут мы видим:

• сбор всех параметров и ключей rar, включая пароль на архив и коэффициент сжатия;
• сбор всех файлов для сжатия, включая резервную копию, логи (если задано политикой) и прочие файлы (если переданы);
• если сжатие задано, производим компрессию;
• если сжатие отключено, то просто копируем файл бекапа в каталог назначения (только если сценарий скрипта не создал его изначально там);

REM ==== Perform RAR-compression or copy backup into destination dir ===============
IF "%rar_password%" GTR "" SET rar_password=-p%rar_password%
SET rar_options=%rar_options% -m%rar_compress_ratio%
SET backup_files="%backup_file%" %backup_files%
IF %include_logs_to_archive% == 1 (
  IF %restore% GTR 0 (
    SET backup_files=%backup_files% "%backup_log%" "%restore_log%"
  ) ELSE (
    SET backup_files=%backup_files% "%backup_log%"
  )
)
IF %rar_compress_ratio% GTR 0 (
  ECHO compressing_start       = %date% %time:~0,8%
  ECHO %rar% %rar_options% "%compressed_file%" %backup_files%
  %rar% %rar_options% %rar_password% "%compressed_file%" %backup_files%
  IF %ERRORLEVEL% GTR 0 (
    SET fail=Compression fail!
    GOTO finish
  )
) ELSE IF %direct_backup% == 0 (
    ECHO copying_start           = %date% %time:~0,8%
    ECHO COPY "%backup_file%" "%finish_file%"
    COPY "%backup_file%" "%finish_file%"
  )

Примечание:
В ряде обсуждений встречаются примеры, когда для ускорения сжатия резервной копии gbak.exe и rar.exe запускаются в связке, когда вывод первого подается непосредственно на вход второго. К сожалению, у этого метода есть существенный недостаток, не позволяющий рекомендовать его к использованию: если gbak.exe завершается ошибкой, то в итоге все равно возвращается нулевой (успешный) код возврата, т.к. rar.exe честно и безошибочно забекапил те крохи, что gbak.exe успел ему передать, прежде чем завалился. Т.е. вы никогда не узнаете, что у вас сбоит процесс изготовления резервных копий, пока не попытаетесь восстановить битый бекап, либо случайно не обратите внимание на копеешный размер итогового архива.

Тут мы видим:

• Попытку активировать режим отложенного расширения переменных в командном процессоре (в случае неудачи, информируем пользователя и выходим из блока), который необходим для подсчета совокупного объема файлов;
• Перебор накопленных бекапов от самого свежего до самого древнего, и подсчет их суммарного объема. С момента превышения лимита, удаляем все оставшиеся файлы. В этом блоке используется прием, который позволяет преодолеть ограничение 32-битной арифметики при калькуляции десятков и сотен гигабайт дискового пространства (банально отсекаем младшие разряды), если вам приходится иметь дело с такими большими базами.

REM ==== Delete not actual files (over defined space) ==============================
IF %backup_space_limit% GTR 0 (
  SETLOCAL EnableDelayedExpansion
  IF %ERRORLEVEL% GTR 0 (
    ECHO You must enable var delayed expansion by CMD.EXE /V:ON or at registry key 
    ECHO SoftwareMicrosoftCommand ProcessorDelayedExpansion: HKLM or HKCU
    GOTO finish
  ) 
  FOR /f %%f IN ('DIR "%result_dir%%local_file_or_alias%.*.%backup_ext%*" /a:-D /b /o:-N') DO (
    FOR %%i in ("%result_dir%%%f") DO (
      SET size=%%~zi
      IF %file_size_shift% == 3 SET size=!size:~0,-3!
      IF %file_size_shift% == 6 SET size=!size:~0,-6!
      IF "!size!" == "" SET size=0
      IF "!total_space!" == "" (
        SET /a total_space=!size!
      ) ELSE (
        IF !total_space! LEQ %backup_space_limit% SET /a total_space+=!size!
        IF !total_space! GTR %backup_space_limit% (
          ECHO deleting_overquota_file = %result_dir%%%f
          DEL "%result_dir%%%f" /q
        )
      )
    )
  )
)

Тут мы видим:

• В случае обнаружения ошибки на любом из вышестоящих шагов, составляется краткий отчет: суть ошибки, исходная БД, каталог назначения;
• Если определен адресат для транспорта NET SEND, то отчет об ошибке отсылается ему;
• Если определены параметры почтовой рассылки (мейлер, сервер, отправитель, получатель), то отчет об ошибке рассылается по почте;
• Если определен файл-журнал сбоев, то в него добавляется запись об ошибке;
• Последний шаг в сценарии ошибки — вернуть управление с положительным кодом завершения, что будет сигнализировать вызывающей стороне (обычно это — планировщик задач), что скрипт окончился сбоем;

REM ==== Report when fail or exit ==================================================
:finish
IF "%fail%" GTR "" (
  ECHO #=============================================================================#
  ECHO # %fail%
  ECHO #=============================================================================#
  SET fail=%fail%  DB: %full_db_specification%  Dest: %result_dir%
  IF "%net_send_receiver%" GTR "" (
    ECHO NET SEND %net_send_receiver% "%fail%"
    NET SEND %net_send_receiver% "%fail%"
  )
  IF "%blat%" GTR "" IF "%smtp_server%" GTR "" IF "%mail_sender%" GTR "" IF "%mail_login%" GTR "" IF "%mail_receiver%" GTR "" (
    ECHO %blat% -to "%mail_receiver%" -subject "%mail_subject%" -body "%fail%" -server %smtp_server% -f "%mail_sender%" -u "%mail_login%"
    %blat% -to "%mail_receiver%" -subject "%mail_subject%" -body "%fail%" -server %smtp_server% -f "%mail_sender%" -u "%mail_login%" -pw "%mail_password%"
  )
  SET time_ex=%time: =0%
  IF "%error_log%" GTR "" (
    ECHO %date% %time_ex:~0,8%   %fail% >> "%error_log%"
  )
  EXIT /b 1
) ELSE (
  ECHO Finish                  = %date% %time:~0,8%
)