# 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;+
−
}+
−