X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;ds=inline;f=clearadm%2Findex.cgi;h=4fc9cecb2eb27bdfbc9c8b36e2ea0ce94b06c383;hb=0c802537ec02d6cfea4c41b3138535c09a319489;hp=ad642a2af2e6bedfa6bd53e4cc37eb21a888a4e7;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git
diff --git a/clearadm/index.cgi b/clearadm/index.cgi
index ad642a2..4fc9cec 100755
--- a/clearadm/index.cgi
+++ b/clearadm/index.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/local/bin/perl
=pod
@@ -49,8 +49,8 @@ use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
use ClearadmWeb;
use Clearadm;
-#use Clearcase;
-#use Clearcase::Views;
+use Clearcase;
+use Clearcase::Views;
use Display;
use Utils;
@@ -134,6 +134,8 @@ foreach (@systems) {
$data .= ''
if $system{active} eq 'false';
+ $load{uptime} ||= 'Unknown';
+
display td {class => 'dataCentered'}, "$data ",
font {class => 'dim' }, "
Up: $load{uptime}";
} # foreach
@@ -185,10 +187,10 @@ L
=begin html
-Clearadm
-ClearadmWeb
-Display
-Utils
+Clearadm
+ClearadmWeb
+Display
+Utils
=end html
@@ -203,4 +205,4 @@ Please report problems to Andrew DeFaria .
Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
-=cut
\ No newline at end of file
+=cut