rem
rem в этом бат - файле задаются значения переменных
rem
rem   _CENTRE_ - имя машины в сети, где установлена 
rem             consolidated database 
rem   _DIR_    - каталог, где хранятся файлы сообщений системы
rem              репликаций на центральном сервере
rem   _RDIR_   - каталог, где хранятся файлы сообщений системы
rem              репликаций на удаленных компьютерах
rem
rem   _DIRCE_   
rem             
rem   _RDIRCE_  
rem             
rem

SET _PWD_=uid=dba;pwd=sql

SET _PROTOCOL_=-x ShMem
rem SET _PROTOCOL_=
SET _DBISQL_=dbisqlc.exe
SET _DBSRV_=dbeng7.exe
SET _DBRMT_=dbremote.exe
SET _DIR_=c:\remote
SET _CENTRE_=\\valentyn
SET _RDIR_=c:\remote

SET _RDIRCE_=\outtrak\spool\sqlrmt

rem
rem    административные утилиты для управления публикациями и подписками
rem
SET _A_SBSCR_=..\..\dbi3_\bld\a_sbscr.exe 
SET _A_PBL_=..\..\dbi3_\bld\a_pbl.exe 

@echo off
rem
rem  команды по созданию, отшариванию каталогов  и использованию
rem  сетевых каталогов внесены в скрипт ДЛЯ ИЛЛЮСТРАЦИИ - что бы не забыть.
rem  Они выполняются на NT и не выполняются на Win95.
rem  Лучше их выполнять вручную.
rem

if  %1 . == .   goto usage
if  %1 . == /?. goto usage
if  %1 . == -?. goto usage

call setv.bat

:work
rem 
rem   it is place of preProccessor
rem 


rem if exist ..\lib\dbi.sqs goto dbi2

Rem sed -f ..\sed\types.sed ..\..\dbi3_\src\dbi.sqs >..\bld\dbi.sql

rem goto dbiDone
rem :dbi2

sed -f ..\sed\types.sed ..\..\dbi3_\src\dbi.sqs >..\bld\dbi.sql
sed -f ..\sed\types.sed ..\main\drop_str.sqs  >..\bld\drop_str.sql
copy ..\..\dbi3_\src\drop_usr.sql ..\bld\drop_usr.sql  
copy ..\..\dbi3_\src\dropP.sql    ..\bld\dropP.sql
rem copy ..\..\dbi3_\src\dropF.sql    ..\bld\dropF.sql

:dbiDone


sed -f ..\sed\types.sed ..\main\del_tst.sqs  >..\bld\del_tst.sql
sed -f ..\sed\types.sed ..\main\ini_cons.sqs >..\bld\ini_cons.sql
sed -f ..\sed\types.sed ..\src\types.sqs     >..\bld\types.sql
sed -f ..\sed\types.sed ..\src\goods.sqs     >..\bld\goods.sql
sed -f ..\sed\types.sed ..\src\deeder.sqs    >..\bld\deeder.sql
sed -f ..\sed\types.sed ..\src\order.sqs     >..\bld\order.sql
sed -f ..\sed\types.sed ..\src\invpay.sqs    >..\bld\invpay.sql
rem ***** new line  04  .07  .2002 
sed -f ..\sed\types.sed ..\src\invoic ~1 .sqs  >>..\bld\invpay.sql
sed -f ..\sed\types.sed ..\src\v_stkGds.sqs  >..\bld\v_stkGds.sql
sed -f ..\sed\types.sed ..\src\v_stkGds.sqs  >..\bld\v_stkGds.sql
rem ***** new line  27  .06  .2002 
sed -f ..\sed\types.sed ..\src\v_stkg ~1 .sqs  >>..\bld\v_stkGds.sql
sed -f ..\sed\types.sed ..\src\v_invR ~1 .sqs  >..\bld\V_invRcvNm.sql

sed -f ..\sed\types.sed ..\src\replicat.sqs  >..\bld\replicat.sql
sed -f ..\sed\types.sed ..\src\visit.sqs     >..\bld\visit.sql
sed -f ..\sed\types.sed ..\src\price.sqs     >..\bld\price.sql
sed -f ..\sed\types.sed ..\src\v_order.sqs   >..\bld\v_order.sql
sed -f ..\sed\types.sed ..\src\v_iit.sqs     >..\bld\v_iit.sql

sed -f ..\sed\types.sed ..\src\Ledger.sqs       >..\bld\foo.sql
sed -f ..\sed\types.sed ..\src\Days.sqs      >>..\bld\foo.sql
sed -f ..\sed\types.sed ..\src\Discount.sqs  >>..\bld\foo.sql
sed -f ..\sed\types.sed ..\src\V_slLmt.sqs   >>..\bld\foo.sql


sed -f ..\sed\types.sed ..\src\r_remote.sqs     >..\bld\r_remote.sql

rem
rem      this file can be used for upgrade the databases without Message
rem      and any2all publication
rem

sed -f ..\sed\types.sed ..\src\wmessage.sqs     >..\bld\wmessage.sql

copy ..\src\v_goods.sql  ..\bld\v_goods.sql
copy ..\src\v_deeder.sql ..\bld\v_deeder.sql
copy ..\src\v_item.sql   ..\bld\v_item.sql
copy ..\src\crt_all.sql  ..\bld\crt_all.sql
sed -f ..\sed\types.sed ..\main\drop_str.sqs  >..\bld\drop_str.sql
sed -f ..\sed\types.sed ..\main\ini_rmt.sqs  >..\bld\ini_rmt.sql

rem ***** new line  26  .06  .2002 

sed -f ..\sed\types.sed ..\src\pbls.pbs  >..\bld\pbls.pbl

cd ..\bld

if  %2 . == .  goto drop_str
if  %2   ==  0   goto drop_str

dberase -q -y  ..\main\ %1 .db >nul
:crt1
dbinit.exe -i -j ..\main\ %1 .db
goto create

:drop_str
if not exist ..\main\ %1 .db  goto crt1
start /w dbping -d  -c  "%_PWD_%;astop=no;astart=yes;eng=_4_init_%1 ;startline=dbeng7 -n _4_init_ %1  %_PROTOCOL_% ..\main\ %1 "
start /w %_DBISQL_% -c  %_PWD_%;eng=_4_init_ %1  read drop_str.sql 
start /w dbstop     -c  %_PWD_%;eng=_4_init_ %1 

:create
start /w dbping -d -c  "%_PWD_%;astop=no;astart=yes;;eng=_4_init_%1 ;startline=dbeng7 -n _4_init_ %1  %_PROTOCOL_% ..\main\ %1 "
if  %2 . ==  2 .  goto forCE
    if not  %3 . == .   goto remote

        start /w %_DBISQL_% -c %_PWD_%;eng=_4_init_ %1   read ini_cons.sql [ %1 ] [%_DIR_%] 
        echo on
        start /w %_A_PBL_%     %_PWD_%;eng=_4_init_ %1  @..\bld\pbls.pbl
        rem
        rem команды по созданию каталога не догма а руководство к действию
        rem то есть для напоминанию где какой каталог создавать
        rem pause  echo off
        if exist %_DIR_%\ %1 \keep_me goto done_mk

            mkdir  %_DIR_%\ %1 
            touch %_DIR_%\ %1 \keep_me

        :done_mk
        rem                    создал каталог для приема 
        rem                    выдал в сеть корень, удаленные БД будут там создавать
        rem                    свои каталоги
        rem net share remote=%_DIR_%

        goto done

    :remote
    start /w %_DBISQL_%  -c %_PWD_%;eng=_4_init_ %1  read ini_rmt.sql  [ %1 ] [ %3 ] [%_RDIR_%]  0 
    start /w %_A_PBL_%      %_PWD_%;eng=_4_init_ %1  @..\bld\pbls.pbl
    start /w %_A_SBSCR_%    %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr= %3 ;pbl=init
    start /w %_A_SBSCR_%    %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr= %3 ;pbl=any2all          
    start /w %_A_SBSCR_%    %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr= %3 ;par= %1 ;pbl=any2centre
    start /w %_A_SBSCR_%    %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr= %3 ;par= %1 ;pbl=any2centre
rem ******
    start /w %_A_SBSCR_%    %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr= %3 ;par= %3 ;pbl=any2centre


    rem        для запуска удаленной и центральной БД на одной машине
    rem            надо использовать команду subst
    rem subst   %_RDIR_% %_CENTRE_%\remote
    rem        для запуска удаленной БД в локальной сети  на машине отличной 
    rem        от центральной использовать net use
    rem                   взял отшареный каталог
    rem                   и создал там свой подкаталог для удаленной БД
    rem net use %_RDIR_% %_CENTRE_%\remote
    rem mkdir %_RDIR_%\ %1 

    if exist %_DIR_%\ %1 \keep_me goto done_mk1

        mkdir  %_RDIR_%\ %1 
        touch %_DIR_%\ %1 \keep_me

    :done_mk1

    goto done

:forCE

if  %3 . == .   goto forCE2

    start /w %_DBISQL_% -c %_PWD_%;eng=_4_init_ %1  read ini_rmt.sql  [ %1 ] [ %3 ] [%_RDIRCE_%]  1 
    start /w %_A_PBL_%     %_PWD_%;eng=_4_init_ %1  @..\bld\pbls.pbl
    start /w %_A_SBSCR_%   %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr= %3 ;pbl=init
    start /w %_A_SBSCR_%   %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr= %3 ;pbl=any2all          
    start /w %_A_SBSCR_%   %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr= %3 ;par= %1 ;pbl=any2centre
rem ******
    start /w %_A_SBSCR_%   %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr= %3 ;par= %3 ;pbl=any2centre

    goto done

:forCE2
start /w %_DBISQL_% -c %_PWD_%;eng=_4_init_ %1  read ini_rmt.sql [ %1 ] centre [%_RDIRCE_%]  1 
start /w %_A_PBL_%     %_PWD_%;eng=_4_init_ %1  @..\bld\pbls.pbl
start /w %_A_SBSCR_%   %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr=centre;pbl=init          
start /w %_A_SBSCR_%   %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr=centre;pbl=any2all
start /w %_A_SBSCR_%   %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr=centre;par= %1 ;pbl=any2centre
rem *****
start /w %_A_SBSCR_%   %_PWD_%;eng=_4_init_ %1  cmd=prepare;usr=centre;par=centre;pbl=any2centre

goto done

:usage
    @echo off
    echo Make Initialization of Database
    echo ****************************
    echo.
    echo Usage:  %0  { name }  [ create? ] [consolidate?]
    echo.
    echo        name     = name of database file
    echo        create?  =  1   - create new database file
    echo.                   0     create new database structure in old file
    echo.                       (only for central database)
    echo.                   2     create new database file for remote PocketPC
    echo.                       (special kind of directories)
    echo        consolidate?  - name of consolidate user
    echo ex.  %0   outtrak 
    echo      %0   newbase   1  
    echo      %0   remote    1   outtrak
    echo      %0   remote    2       /*  consolidated is centre */ 
    echo.
    goto :finish
:done
if not exist ini1st.bat cd ..\main
dbstop -c %_PWD_%;eng=_4_init_ %1 
:finish

dbstop -y
echo off
rem pause
rem
rem    бат файл написан для создания распределенного
rem       примера, работающем на одном компьютере
rem       один центре - два удаленных клиента
rem       каталоги репликации задаются в setv.bat
rem
rem 
rem создание центральной БД  
rem   

call ini1st.bat centre  1 


rem
rem создание удаленной БД
rem

call ini1st.bat rmt  1  centre

call ini1st.bat rmt2  1  centre

rem
rem запуск центральной БД
rem

start /w dbping -d -c  "astop=no;astart=yes;eng=outtrak;dbf=..\main\centre;%_PWD_%" 

rem call eng centre outtrak

rem echo 'please, wait for 20 secs'
rem pause  

rem
rem добавление удаленного пользователя к центральной БД
rem

call addruser outtrak centre rmt
call addruser outtrak centre rmt2

rem call add_ruser rmt

rem
rem запуск  удаленной БД  ПРИ РАБОТАЮЩЕЙ ЦЕНТРАЛЬНОЙ - только для примера
rem

call db_start rmt outtrak
call db_start rmt2 outtrak

rem   
rem запуск нескольких репликаций между centre и rmt и rmt2 для синхронизации  
rem

call rmt centre

call rmt rmt
call rmt rmt2

call rmt centre

call rmt rmt
call rmt rmt2

call rmt centre

call rmt rmt
call rmt rmt2

call rmt centre

call rmt rmt
call rmt rmt2