2 ################################################################################
6 # Description: This script will locate a view by searching through the various
8 # Author: Andrew@DeFaria.com
9 # Created: Mon May 3 09:06:55 PDT 2004
10 # Modified: 2007/05/17 07:45:48
13 # (c) Copyright 2004, Andrew@DeFaria.com, all rights reserved.
15 ################################################################################
20 use lib "$FindBin::Bin/../lib";
25 display "Usage $FindBin::Script: [ <view tag>... | -u ]";
27 display "\t<view tag>\tName of the view to find (can be partial name)";
37 # Get a list of regions
38 my @regions = `cleartool lsregion`;
42 foreach $region (@regions) {
44 chop $region if $region =~ /\r/; # Remove carriage returns
46 verbose "Searching $region region...\n";
48 # Get a list of views in the region
49 my @lines = `cleartool lsview -region $region`;
51 # Parse the lines extracting view tag and storage area
53 verbose "Searching view $_";
54 if (/[\* ]\s*(\S*)\s*\S*/) {
57 if ($name =~ /$view/i) {
58 display "\t$name ($region)";
70 if (defined $ARGV [0] and $ARGV [0] =~ /^-u/) {
75 verbose "Searching for views containing \"$_\"";
76 my $nbr_views = SearchRegions $_;
78 if ($nbr_views eq 0) {
79 display "No views found"
80 } elsif ($nbr_views eq 1) {
81 display "1 view found";
83 display "$nbr_views views found";
86 verbose " matching \"$_\"";