bldsystemtools/commonbldutils/subst.pl
branchRCL_3
changeset 24 d90029decf65
parent 20 a9d4531388d0
child 33 54aa4a06a075
child 34 5e522efbae7b
--- a/bldsystemtools/commonbldutils/subst.pl	Wed Mar 31 23:20:42 2010 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,85 +0,0 @@
-# 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