X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clearadm%2Fviewservers.cgi;h=90639b0e0d5b9ca6902b92a974de22a7db350085;hb=3c28a301742e8f8cdd35825fd6ebe4f842a510c7;hp=a96a770dab996bf91e80b83f84a07919f08817a2;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git

diff --git a/clearadm/viewservers.cgi b/clearadm/viewservers.cgi
index a96a770..90639b0 100755
--- a/clearadm/viewservers.cgi
+++ b/clearadm/viewservers.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/local/bin/perl
 
 =pod
 
@@ -51,7 +51,7 @@ use warnings;
 
 use FindBin;
 use Getopt::Long;
-use CGI qw (:standard :cgi-lib *table start_Tr end_Tr);
+use CGI qw(:standard :cgi-lib *table start_Tr end_Tr);
 use CGI::Carp 'fatalsToBrowser';
 
 use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
@@ -71,7 +71,7 @@ my $subtitle = 'View Servers';
 my $VERSION  = '$Revision: 1.9 $';
   ($VERSION) = ($VERSION =~ /\$Revision: (.*) /);
 
-sub DisplayTable (@) {
+sub DisplayTable(@) {
   my (@viewServers) = @_;
 
   my $unknown = font {-class => 'unknown'}, 'Unknown';
@@ -98,7 +98,7 @@ sub DisplayTable (@) {
 
   my $i = 0;
 
-  foreach (@viewServers) {
+  for (@viewServers) {
     my $server = Clearcase::Server->new ($_, $opts{region});
 
     # Data fields
@@ -123,7 +123,7 @@ sub DisplayTable (@) {
         -class => 'data',
       }, $osVer;
     display end_Tr;
-  } # foreach
+  } # for
 
   display end_table;
   
@@ -131,7 +131,7 @@ sub DisplayTable (@) {
 } # DisplayTable
 
 # Main
-GetOptions (
+GetOptions(
   \%opts,
   'usage'        => sub { Usage },
   'verbose'      => sub { set_verbose },
@@ -155,13 +155,13 @@ error "Unable to list all views in the region $opts{region}" . join ("\n", @outp
 
 my %viewServers;
 
-foreach (@output) {
+for (@output) {
   if (/Server host: (.*)/) {
     $viewServers{$1} = undef;
   } # if
-} # foreach
+} # for
 
-DisplayTable sort (keys (%viewServers));
+DisplayTable sort(keys(%viewServers));
 
 footing;
 
@@ -202,11 +202,11 @@ L<Getopt::Long|Getopt::Long>
 =begin html
 
 <blockquote>
-<a href="http://clearscm.com/php/cvs_man.php?file=clearadm/lib/ClearadmWeb.pm">ClearadmWeb</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/Clearcase.pm">Clearcase</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/Clearcase/Server.pm">Clearcase::Server</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/Display.pm">Display</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/Utils.pm">Utils</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/ClearadmWeb.pm">ClearadmWeb</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/Clearcase.pm">Clearcase</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/Clearcase/Server.pm">Clearcase::Server</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/Display.pm">Display</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/Utils.pm">Utils</a><br>
 </blockquote>
 
 =end html
@@ -221,4 +221,4 @@ Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.
 
 Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
 
-=cut
\ No newline at end of file
+=cut