--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bldsystemtools/commonbldutils/subst.pl	Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,85 @@
+# Copyright (c) 2004-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:
+# Script to subst and un-subst drives
+# 
+#
+
+use strict;
+use Getopt::Long;
+
+my ($drive, $path, $delete, $force) = &ProcessCommandLine;
+
+die "ERROR: Bad virtual drive \"$drive\"" if $drive !~ /^\w:$/;
+
+if ($delete)
+{
+  system "subst /d $drive";
+  die("ERROR: Could not un-subst \"$drive\"") if $?;
+}
+else
+{
+  die "ERROR: \"$path\" does not exist" if !-d $path;
+  `subst /d $drive` if $force;
+  system "subst $drive $path";
+  die("ERROR: Could not subst \"$path\" to \"$drive\"") if $?;
+}
+
+# Subst has been successful
+print "Resultant subst mappings:\n";
+my $output = `subst`;
+$output ? print $output : print "None";
+
+# End of script
+
+sub ProcessCommandLine {
+  my ($iHelp, $iDrive, $iPath, $iDelete, $iForce);
+  GetOptions('h'   => \$iHelp,
+             'v=s' => \$iDrive,
+             'p=s' => \$iPath,
+             'd'   => \$iDelete,
+             'f'   => \$iForce);
+
+  if (($iHelp) || (!defined $iDrive) || ((!defined $iPath)&&(!defined $iDelete)))
+  {
+    Usage();
+  } 
+  else 
+  {
+    return($iDrive, $iPath, $iDelete, $iForce);
+  }
+}
+
+# Usage
+#
+# Output Usage Information.
+#
+
+sub Usage {
+  print <<USAGE_EOF;
+
+Usage: subst.pl [options]
+
+options:
+
+  -d  delete the SUBSTed virtual drive
+  -h  help
+  -f  force an un-subst first in case drive is already SUBSTed
+  -p  <physical path>
+  -v  <virtual drive>
+
+For example "subst.pl -v z: -p d:\\master\\03237" will subst the directory
+"d:\\master\\03237" to the virtual drive "z:"
+USAGE_EOF
+  exit 1;
+}
\ No newline at end of file