loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.223, 2002/05/17 14:03:04	version 1.226, 2002/05/18 18:54:29
Line 2763 sub hreflocation {	Line 2763 sub hreflocation {
unless (($file=~/^http:\/\//i) \|\| ($file=~/^\//)) {	unless (($file=~/^http:\/\//i) \|\| ($file=~/^\//)) {
my $finalpath=filelocation($dir,$file);	my $finalpath=filelocation($dir,$file);
$finalpath=~s/^\/home\/httpd\/html//;	$finalpath=~s/^\/home\/httpd\/html//;
	$finalpath=~s-/home/(\w+)/public_html/-/~$1/-;
return $finalpath;	return $finalpath;
} else {	} else {
return $file;	return $file;
Line 2830 BEGIN {	Line 2831 BEGIN {
}	}
}	}
}	}
{
my $config=Apache::File->new("/etc/httpd/conf/loncapa_apache.conf");

while (my $configline=<$config>) {
if ($configline =~ /^[^\#]*PerlSetVar/) {
my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
chomp($varvalue);
$perlvar{$varname}=$varvalue;
}
}
}

# ------------------------------------------------------------- Read hosts file	# ------------------------------------------------------------- Read hosts file
{	{
Line 3303 replicates and subscribes to the file	Line 3293 replicates and subscribes to the file
=item *	=item *

filelocation($dir,$file) : returns file system location of a file based on URI;	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 *	=item *