--- loncom/lonnet/perl/lonnet.pm 2002/05/17 11:39:48 1.222 +++ loncom/lonnet/perl/lonnet.pm 2002/05/17 19:52:42 1.224 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.222 2002/05/17 11:39:48 matthew Exp $ +# $Id: lonnet.pm,v 1.224 2002/05/17 19:52:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2804,12 +2804,12 @@ sub goodbye { } BEGIN { -# ------------------------------------------- Read access.conf and loncapa.conf +# ---------------------------------- Read loncapa_apache.conf and loncapa.conf # (eventually access.conf will become deprecated) unless ($readit) { { - my $config=Apache::File->new("/etc/httpd/conf/access.conf"); + my $config=Apache::File->new("/etc/httpd/conf/loncapa_apache.conf"); while (my $configline=<$config>) { if ($configline =~ /^[^\#]*PerlSetVar/) { @@ -3303,7 +3303,7 @@ replicates and subscribes to the file =item * filelocation($dir,$file) : returns file system location of a file based on URI; -meant to be "fairly clean" absolute reference +meant to be "fairly clean" absolute reference, $dir is a directory that relative $file lookups are to looked in ($dir of /a/dir and a file of ../bob will become /a/bob) =item *