:: v 2.0 Lee Pfeffeman - FHC Computer Specialist Lodi, CA  
:: <a href=mailto:lodifhc@pacbell.net>lodifhc@pacbell.net</a>
:: <a href=http://home.pacbell.net/lodifhc/desktop.htm>http://home.pacbell.net/lodifhc/desktop.htm</a>

:: This bat file tests for the existance of Ancestral File on a file
:: server. If found FS is configured for operation from the file server.
:: Otherwise an attempt is made to reconnect to shared directories.
:: If unsuccessful, FS is configured for operation from CD.

:: N:\ is the path to the Ancestral File directory on the server
:: c:\pas is the path to the PAS directory on the client

:: c:\pasconfig\std is the path for cd operation files
:: c:\pasconfig\net is the path for network operation files
:: c:\pasconfig directory is approx 200 KB

:: client10 is the file server


@echo off

If EXIST N:\Af_vocab GOTO :fileserver

:: attempt to restore network connections

net use n: \\client10\af /yes
net use | find "OK" > NUL
if errorlevel 1 goto :usecd

net use o: \\client10\fhlc /yes
net use | find "FHLC" > NUL
if errorlevel 1 goto :usecd

net use p: \\client10\igi /yes
net use | find "IGI" > NUL
if errorlevel 1 goto :usecd

net use t: \\client10\igia /yes
net use | find "IGIA" > NUL
if errorlevel 1 goto :usecd

net use q: \\client10\mi /yes
net use | find "MI" > NUL
if errorlevel 1 goto :usecd

net use r: \\client10\scr /yes
net use | find "SCR" > NUL
if errorlevel 1 goto :usecd

net use s: \\client10\ssn97 /yes
net use | find "SSN97" > NUL
if errorlevel 1 goto :usecd

ECHO all connections restored
GOTO :fileserver

:usecd

copy c:\pasconfig\std\pas.ini c:\pas\pas.ini /V /Y
copy c:\pasconfig\std\pasetup.txt c:\pas\pasetup.txt /V /Y

copy c:\pasconfig\std\tr\rgns1.tbl c:\pas\tr\rgns1.tbl /y /v
copy c:\pasconfig\std\tr\rgns1.bak c:\pas\tr\rgns1.bak /y /v
copy c:\pasconfig\std\tr\regions.tbl c:\pas\tr\regions.tbl /y /v
copy c:\pasconfig\std\tr\regions.bak c:\pas\tr\regions.bak /y /v

copy c:\pasconfig\std\ss\platter.txt c:\pas\ss\platter.txt /y /v

copy c:\pasconfig\std\scr\regions.tbl c:\pas\scr\regions.tbl /y /v

copy c:\pasconfig\std\oi\regions.tbl c:\pas\oi\regions.tbl /y /v
copy c:\pasconfig\std\oi\regions.add c:\pas\oi\regions.add /y /v

copy c:\pasconfig\std\lc\startup c:\pas\lc\startup /y /v

copy c:\pasconfig\std\igi\regions.tbl c:\pas\igi\regions.tbl /y /v
copy c:\pasconfig\std\igi\regions.add c:\pas\igi\regions.add /y /v

copy c:\pasconfig\std\af\plat2net.tbl c:\pas\af\plat2net.tbl /y /v
copy c:\pasconfig\std\af\plat2net.bak c:\pas\af\plat2net.bak /y /v

del c:\pasconfig\use.net
ECHO FS is configured for CD
GOTO :end

:fileserver

If EXIST c:\pasconfig\use.net GOTO :netfiles

copy c:\pasconfig\net\pas.ini c:\pas\pas.ini /V /Y
copy c:\pasconfig\net\pasetup.txt c:\pas\pasetup.txt /V /Y

copy c:\pasconfig\net\tr\rgns1.tbl c:\pas\tr\rgns1.tbl /y /v
copy c:\pasconfig\net\tr\rgns1.bak c:\pas\tr\rgns1.bak /y /v
copy c:\pasconfig\net\tr\regions.tbl c:\pas\tr\regions.tbl /y /v
copy c:\pasconfig\net\tr\regions.bak c:\pas\tr\regions.bak /y /v

copy c:\pasconfig\net\ss\platter.txt c:\pas\ss\platter.txt /y /v

copy c:\pasconfig\net\scr\regions.tbl c:\pas\scr\regions.tbl /y /v

copy c:\pasconfig\net\oi\regions.tbl c:\pas\oi\regions.tbl /y /v
copy c:\pasconfig\net\oi\regions.add c:\pas\oi\regions.add /y /v

copy c:\pasconfig\net\lc\startup c:\pas\lc\startup /y /v

copy c:\pasconfig\net\igi\regions.tbl c:\pas\igi\regions.tbl /y /v
copy c:\pasconfig\net\igi\regions.add c:\pas\igi\regions.add /y /v

copy c:\pasconfig\net\af\plat2net.tbl c:\pas\af\plat2net.tbl /y /v
copy c:\pasconfig\net\af\plat2net.bak c:\pas\af\plat2net.bak /y /v

::create use.net file to signal fileserver configuration
ECHO network files are loaded > c:\pasconfig\use.net

:netfiles

ECHO FS is configured for network

:end

C:\PAS\PAS.EXE