projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Big update of Clearadm
[clearscm.git]
/
clearadm
/
index.cgi
diff --git
a/clearadm/index.cgi
b/clearadm/index.cgi
index
a5259ea
..
4fc9cec
100755
(executable)
--- a/
clearadm/index.cgi
+++ b/
clearadm/index.cgi
@@
-1,4
+1,4
@@
-#!/usr/bin/perl
+#!/usr/
local/
bin/perl
=pod
=pod
@@
-49,8
+49,8
@@
use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
use ClearadmWeb;
use Clearadm;
use ClearadmWeb;
use Clearadm;
-
#
use Clearcase;
-
#
use Clearcase::Views;
+use Clearcase;
+use Clearcase::Views;
use Display;
use Utils;
use Display;
use Utils;
@@
-134,6
+134,8
@@
foreach (@systems) {
$data .= '</strike>'
if $system{active} eq 'false';
$data .= '</strike>'
if $system{active} eq 'false';
+ $load{uptime} ||= 'Unknown';
+
display td {class => 'dataCentered'}, "$data ",
font {class => 'dim' }, "<br>Up: $load{uptime}";
} # foreach
display td {class => 'dataCentered'}, "$data ",
font {class => 'dim' }, "<br>Up: $load{uptime}";
} # foreach
@@
-203,4
+205,4
@@
Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.
Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
-=cut
\ No newline at end of file
+=cut