use FindBin;
use Getopt::Long;
-use CGI qw (:standard :cgi-lib *table start_Tr end_Tr start_ol end_ol);
+use CGI qw(:standard :cgi-lib *table start_Tr end_Tr start_ol end_ol);
use CGI::Carp 'fatalsToBrowser';
use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
display end_table;
} # DisplayVob
-sub DisplayTable (@) {
+sub DisplayTable(@) {
my (@vobServers) = @_;
my $unknown = font {-class => 'unknown'}, 'Unknown';
my $server;
for (@vobServers) {
- $server = Clearcase::Server->new ($_, $opts{region});
+ $server = Clearcase::Server->new($_, $opts{region});
display start_Tr;
display td {
} # DisplayTable
# Main
-GetOptions (
+GetOptions(
\%opts,
'usage' => sub { Usage },
'verbose' => sub { set_verbose },
);
error "Unable to list all vobs in the region $opts{region}"
- . join ("\n", @output), 1
- if $status;
+ . join("\n", @output), 1 if $status;
my %vobServers;
} # if
} # for
-DisplayTable sort (keys (%vobServers));
+DisplayTable sort(keys(%vobServers));
footing;