Cluster Status
body<=
" unless $remote;
return ""
unless LJ::check_priv($remote, 'supporthelp');
my $ret;
foreach my $cid (@LJ::CLUSTERS) {
my $name = LJ::get_cluster_description($cid) || 'no name';
$ret .= "$name: ";
my $check = 0;
if ($LJ::READONLY_CLUSTER{$cid}) {
$ret .= "read-only for all users";
} elsif ($LJ::READONLY_CLUSTER_ADVISORY{$cid} eq 'when_needed') {
$ret .= "read-only for free users during load",
} elsif ($LJ::READONLY_CLUSTER_ADVISORY{$cid}) {
$ret .= "read-only for free users";
} else {
$ret .= "no known issues";
$check = 1;
}
if ($check) {
my $dbcm = LJ::get_cluster_master($cid);
if ($dbcm) {
$ret .= "; available";
} else {
$ret .= "; unavailable";
}
}
$ret .= "
";
}
return $ret;
}
_code?>
<=body
page?>