X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clearadm%2Fviewservers.cgi;h=90639b0e0d5b9ca6902b92a974de22a7db350085;hb=7ddf095f187ca60d9a70fb83b2bc3c2b6d91f088;hp=f214c04d7d5a7bb2fbe6820d2e32709260d99313;hpb=0c802537ec02d6cfea4c41b3138535c09a319489;p=clearscm.git

diff --git a/clearadm/viewservers.cgi b/clearadm/viewservers.cgi
index f214c04..90639b0 100755
--- a/clearadm/viewservers.cgi
+++ b/clearadm/viewservers.cgi
@@ -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;