view release on metacpan or  search on metacpan

Bootstrap.PL  view on Meta::CPAN

$CHKDIR=File::Spec->catdir("html","LIB");                  mkdir $CHKDIR,0777 unless -d $CHKDIR;
$CHKDIR=File::Spec->catdir("html","LIB","xml-edifact-03"); mkdir $CHKDIR,0777 unless -d $CHKDIR;
$CHKDIR=File::Spec->catdir("html","LIB","untdid-d96b");    mkdir $CHKDIR,0777 unless -d $CHKDIR;

$DATA=File::Spec->catdir("blib","lib","XML","Edifact","d96b");
mkdir $DATA, 0777 unless -d $DATA;

XML::Edifact::open_dbm( $DATA, O_RDWR|O_CREAT );

#------------------------------------------------------------------------------#
$run=File::Spec->catdir("boot","segment.run");   $req_ok = require $run;
$run=File::Spec->catdir("boot","composite.run"); $req_ok = require $run;
$run=File::Spec->catdir("boot","element.run");   $req_ok = require $run;
$run=File::Spec->catdir("boot","annex_b.run");   $req_ok = require $run;
$run=File::Spec->catdir("boot","codes.run");     $req_ok = require $run;
$run=File::Spec->catdir("boot","dtd.run");       $req_ok = require $run;

#------------------------------------------------------------------------------#

XML::Edifact::close_dbm( );

open TOUCH,">>".File::Spec->catfile($DATA,".exists"); close TOUCH;

$DATA=File::Spec->catdir("blib","lib","XML","Edifact","extend");
mkdir $DATA, 0777 unless -d $DATA;