5 =head1 NAME $RCSfile: vobservers.cgi,v $
15 Andrew DeFaria <Andrew@ClearSCM.com>
23 Mon Oct 25 11:10:47 PDT 2008
27 $Date: 2011/01/02 15:25:42 $
33 Usage vobservers.cgi: [-u|sage] [-r|egion <region>]
37 -u|sage: Displays usage
38 -r|egion <region>: Region to use when looking for the view
41 -d|ebug: Output debug messages
45 This script display the details for all vob servers in the region
54 use CGI qw (:standard :cgi-lib *table start_Tr end_Tr);
55 use CGI::Carp 'fatalsToBrowser';
57 use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
61 use Clearcase::Server;
67 $opts{region} ||= $Clearcase::CC->region if $Clearcase::CC;
69 my $subtitle = 'Vob Servers';
71 my $VERSION = '$Revision: 1.9 $';
72 ($VERSION) = ($VERSION =~ /\$Revision: (.*) /);
74 sub DisplayTable (@) {
75 my (@vobServers) = @_;
77 my $unknown = font {-class => 'unknown'}, 'Unknown';
86 -class => 'labelCentered',
89 -class => 'labelCentered',
92 -class => 'labelCentered',
95 -class => 'labelCentered',
101 foreach (@vobServers) {
102 my $server = Clearcase::Server->new ($_, $opts{region});
105 my $name = $server->name;
106 my $ccVer = $server->ccVer;
107 my $osVer = $server->osVer;
114 -class => 'dataCentered',
118 }, a {-href => "serverdetails.cgi?server=$name"}, $name;
136 'usage' => sub { Usage },
137 'verbose' => sub { set_verbose },
138 'debug' => sub { set_debug },
140 ) or Usage "Invalid parameter";
143 verbose "$FindBin::Script v$VERSION";
151 my ($status, @output) = $Clearcase::CC->execute (
152 "lsvob -region $opts{region} -long"
155 error "Unable to list all vobs in the region $opts{region}"
156 . join ("\n", @output), 1
162 if (/Server host: (.*)/) {
163 $vobServers{$1} = undef;
167 DisplayTable sort (keys (%vobServers));
173 =head1 CONFIGURATION AND ENVIRONMENT
175 DEBUG: If set then $debug is set to this level.
177 VERBOSE: If set then $verbose is set to this level.
179 TRACE: If set then $trace is set to this level.
187 L<CGI::Carp|CGI::Carp>
191 L<Getopt::Long|Getopt::Long>
193 =head2 ClearSCM Perl Modules
208 <a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/ClearadmWeb.pm">ClearadmWeb</a><br>
209 <a href="http://clearscm.com/php/scm_man.php?file=lib/Clearcase.pm">Clearcase</a><br>
210 <a href="http://clearscm.com/php/scm_man.php?file=lib/Clearcase/Server.pm">Clearcase::Server</a><br>
211 <a href="http://clearscm.com/php/scm_man.php?file=lib/Display.pm">Display</a><br>
212 <a href="http://clearscm.com/php/scm_man.php?file=lib/Utils.pm">Utils</a><br>
217 =head1 BUGS AND LIMITATIONS
219 There are no known bugs in this script
221 Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.
223 =head1 LICENSE AND COPYRIGHT
225 Copyright (c) 2010, ClearSCM, Inc. All rights reserved.