bldsystemtools/commonbldutils/RmInstalledEnv.pl
branchRCL_3
changeset 24 d90029decf65
parent 20 a9d4531388d0
child 33 54aa4a06a075
child 34 5e522efbae7b
--- a/bldsystemtools/commonbldutils/RmInstalledEnv.pl	Wed Mar 31 23:20:42 2010 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,81 +0,0 @@
-#!/usr/bin/perl
-
-=head1 NAME
-
-RmInstalledEnv.pl
-
-=head1 SYNOPSIS
-
-RmInstalledEnv.pl
-
-=head1 DESCRIPTION
-
-This script is designed to use RemoveRel command from the CBR tools to remove the installed environment.
-
-=head1 COPYRIGHT
-
-Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
-All rights reserved.
-
-=cut
-
-use strict;
-use Getopt::Long;
-
-
-my ($iIncludeFile) = ProcessCommandLine();
-
-open(INPUT, "<$iIncludeFile");
-my (@includecomponentlist) = <INPUT>;
-close(INPUT);
-foreach my $includecomponent ( @includecomponentlist ){
-  chomp($includecomponent);
-  my ($component, $version ) = split(/=>/, $includecomponent);
-  $component =~  s/^\s+//;
-  $component =~  s/\s+$//;
-  print "removerel $component \n";
-  my $getrelresult = `removerel $component `;
-  print $getrelresult ;
-}
-
-# ProcessCommandLine
-#
-# Description
-# This function processes the commandline
-sub ProcessCommandLine {
-  my ($iHelp, $iIncludeFile);
-
-  GetOptions('h' => \$iHelp,  'x=s' => \$iIncludeFile);
-
-  if ($iHelp)
-  {
-    &Usage();
-  } else {
-    return($iIncludeFile);
-  }
-}
-
-# Usage
-#
-# Output Usage Information.
-#
-
-sub Usage {
-  print <<USAGE_EOF;
-
-  Usage: RmInstalledEnv.pl [Args/options]
-
-  Args: (required)
-  -x  <file> with list of components to remove  
-  
-  options:
-  
-  -h                    help
-  
-  
-  Example Commandline
-  RmInstalledEnv.pl -x includes_phase3.txt 
-
-USAGE_EOF
-	exit 1;
-}
\ No newline at end of file