version 1.2, 2002/05/11 21:31:41
|
version 1.4, 2003/02/25 20:50:31
|
Line 12 use LONCAPA::Configuration;
|
Line 12 use LONCAPA::Configuration;
|
use IO::File; |
use IO::File; |
use IO::Socket; |
use IO::Socket; |
|
|
|
my %perlvar; |
|
|
# -------------------------------------------------- Non-critical communication |
# -------------------------------------------------- Non-critical communication |
sub reply { |
sub reply { |
my ($cmd,$server)=@_; |
my ($cmd,$server)=@_; |
Line 28 sub reply {
|
Line 30 sub reply {
|
} |
} |
|
|
|
|
# ------------------------------------------- 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}; |
%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 |
delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed |
delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed |