diff -r a9d4531388d0 -r d90029decf65 bldsystemtools/commonbldutils/RmInstalledEnv.pl --- 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) = ; -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 < 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