# Copyright (c) 1999-2009 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

#

# Initial Contributors:

# Nokia Corporation - initial contribution.

#

# Contributors:

#

# Description:

#

use File::Path;

# THE MAIN PROGRAM SECTION

{

	unless (@ARGV) {

		&Usage();

	}

	my $originalPath = join (' ',@ARGV);

	print ("Creating $originalPath\n");

#	temp change for old perl

	foreach (@ARGV) {

		s-\\-\/-go;

	}

	mkpath([@ARGV]);

	foreach my $path (@ARGV) {

	    if (! -e $path) {

		print ("ERROR: Couldn't create $path\n");

	    }

	}

}

sub Usage () {

	print <<ENDHERESTRING;

Usage : perl emkdir.pl list_of_directories

  Creates the directories listed

ENDHERESTRING

	exit 1;

}