package ToolsConfig; 

$DOMPath = "\"C:\\Program\ Files\\Doc-O-Matic 5\ Professional\ Server\\dmcc.exe\"";
$ZipPath = "D:\\BuildScript_FP\\pkzipc.exe";
$ZipArg = "-add=update -dir=current -Recurse -nofix";
$TwikiPath = "\\\\server41\\http\\twiki\\";
$TwikiLocalPath = "..\\Twiki\\";
$PerlPath = "c:\\Perl\\Bin\\Perl.exe";

sub PrepareDirectory
{
	use File::Path;
	my $filename = shift;
	
	$filename =~ s/(..\\)//;
	my $path = "../";#$1;
	
	while ($filename =~ s/([\w.]+)\\//)
	{
		my $subdir = $1;
		$path = $path."/".$subdir;
		
		mkpath $path;
	}
}

@ISA = qw(Exporter);
@EXPORT = qw($MainPath $DOMPath $ZipPath $ZipArg $TwikiPath $TwikiLocalPath $PerlPath PrepareDirectory);
