sub MakeDir
{
#Make directory $dir and then optionally applies chmod $chmod to it.
#returns 0 if OK
#returns -1 of can't be created
#returns -2 if dir is created but chmod can't be applied
#
    my ($dir,$chmod)=@_;
    my ($marker, $wdir) = '';
    my ($out) = 0;
    unless ($dir =~ /\/$/){
	$dir .= '/';
    }
    $marker = index($dir,'/');
    do {
	$wdir = substr($dir,0,($marker+1));
	
	unless (-d $wdir){
	    $command = 'mkdir '.$wdir;
	    $out = (system ($command));
	}
	$marker = index($dir,'/',($marker+1));

    } until ($marker == -1);
    if ($out != 0) {
	$out = -1;
    }
    
    if ($chmod && $out == 0) {
	$command = 'chmod '.$chmod.' '.$wdir;
	$out = (system ($command));
    }
    if ($out != 0) {
	$out = -2;
    }
    return ($out);
}

1;