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

     2 # All rights reserved.

     3 # This component and the accompanying materials are made available

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

     5 # which accompanies this distribution, and is available

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

     7 #

     8 # Initial Contributors:

     9 # Nokia Corporation - initial contribution.

    10 #

    11 # Contributors:

    12 #

    13 # Description:

    14 #

    15 

    16 use strict;

    17 use File::Path;

    18 

    19 

    20 # THE MAIN PROGRAM SECTION

    21 {

    22 	unless (@ARGV) {

    23 		&Usage();

    24 	}

    25 

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

    27 	print ("Creating $originalPath\n");

    28 

    29 #	temp change for old perl

    30 	foreach (@ARGV) {

    31 		s-\\-\/-go;

    32 	}

    33 	mkpath([@ARGV]);

    34 	foreach my $path (@ARGV) {

    35 	    if (! -e $path) {

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

    37 	    }

    38 	}

    39 }

    40 

    41 sub Usage () {

    42 	print <<ENDHERESTRING;

    43 Usage : perl emkdir.pl list_of_directories

    44 

    45   Creates the directories listed

    46 ENDHERESTRING

    47 

    48 	exit 1;

    49 }