loncom/cgi/clusterstatus.pl - diff

Return to clusterstatus.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.3, 2002/05/11 21:29:42	version 1.6, 2003/02/03 18:03:52
Line 6 $\|=1;	Line 6 $\|=1;
# (Running loncron	# (Running loncron
# 09/06/01 Gerd Kortemeyer)	# 09/06/01 Gerd Kortemeyer)
# 02/18/02,02/19/02 Gerd Kortemeyer)	# 02/18/02,02/19/02 Gerd Kortemeyer)
# 5/11/2002 Scott Harrison

use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA::Configuration;	use LONCAPA::Configuration;
Line 18 use Net::Ping;	Line 17 use Net::Ping;

sub online {	sub online {
my $host=shift;	my $host=shift;
	return 1;
	# ping is broken
my $p=Net::Ping->new("tcp",10);	my $p=Net::Ping->new("tcp",10);
my $online=$p->ping("$host");	my $online=$p->ping("$host");
$p->close();	$p->close();
Line 54 sub connected {	Line 55 sub connected {

print "Content-type: text/html\n\n".	print "Content-type: text/html\n\n".
"<html><body bgcolor=#FFFFFF>\n";	"<html><body bgcolor=#FFFFFF>\n";
# ------------------------------------------- Read access.conf and loncapa.conf	# -------------------- Read loncapa.conf (and by default, loncapa_apache.conf).
my $perlvarref=LONCAPA::Configuration::read_conf('access.conf','loncapa.conf');	my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
my %perlvar=%{$perlvarref};	my %perlvar=%{$perlvarref};
undef $perlvarref; # remove since sensitive and not needed	undef $perlvarref; # remove since sensitive and not needed
delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed	delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed