@echo off
if "%1" == "" goto Usage

if not exist DataDoc.pm      goto WrongDir
if not exist Style\Style.pm  goto WrongDir

:Install
mkdir %1\site\lib\XML\Data
mkdir %1\site\lib\XML\Data\DataDoc

copy DataDoc.pm     %1\site\lib\XML\Data
copy Style\Style.pm %1\site\lib\XML\Data\DataDoc

echo Installation complete.

goto Exit

:WrongDir

echo This file must be executed from the XML\Data\DataDoc
echo   source directory.

goto :Exit

:Usage
echo Usage: %0 perl_install_dir

:Exit