[BACK]Return to clusterstatus.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/clusterstatus.pl between versions 1.2 and 1.3

version 1.2, 2002/02/19 20:23:59 version 1.3, 2002/05/11 21:29:42
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 LONCAPA::Configuration;
   
 use LWP::UserAgent();  use LWP::UserAgent();
 use HTTP::Headers;  use HTTP::Headers;
 use IO::File;  use IO::File;
Line 50  sub connected { Line 54  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  # ------------------------------------------- Read access.conf and loncapa.conf
 {  my $perlvarref=LONCAPA::Configuration::read_conf('access.conf','loncapa.conf');
     my $config=IO::File->new("/etc/httpd/conf/access.conf");  my %perlvar=%{$perlvarref};
   undef $perlvarref; # remove since sensitive and not needed
     while (my $configline=<$config>) {  delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
         if ($configline =~ /PerlSetVar/) {  delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed
    my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);  
            $perlvar{$varname}=$varvalue;  
         }  
     }  
     delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed  
     delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed  
 }  
   
 # ------------------------------------------------------------- Read hosts file  # ------------------------------------------------------------- Read hosts file
 {  {
Removed from v.1.2  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>