CreatePath

#creates a path

sub CreatePath($){

my $path = shift;
my $DIRDELI = $PubVar::DIRDELI;
my @arr_path = split(/$DIRDELI/, $path);
my $createdPath=$PubVar::DIRDELI;
for(my $iLevel = 0; $iLevel <= $#arr_path; $iLevel ++){
if(length($arr_path[$iLevel])==0){
next;
}
$createdPath = PathConnection($createdPath, $arr_path[$iLevel]);
if(-d $createdPath){
#print "$createdPath exists\n";
}
else{
my $retTmp = mkdir($createdPath);
if($retTmp != 1){
print "Create path ERROR $createdPath in line $.";
return $FALSE;
}
}
}
return $TRUE;
}