loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

version 1.30, 2021/04/18 02:08:46	version 1.32, 2021/07/17 20:34:15
Line 79 sub handler {	Line 79 sub handler {
($remote_ip eq &Apache::lonnet::get_host_ip($lonhost)) \|\|	($remote_ip eq &Apache::lonnet::get_host_ip($lonhost)) \|\|
($vpnint && &Apache::lonnet::ip_match($remote_ip,$vpnint))) {	($vpnint && &Apache::lonnet::ip_match($remote_ip,$vpnint))) {
$redirect = $alias;	$redirect = $alias;
if ($r->uri=~m{^/raw/}){	if (($r->uri=~m{^/raw/}) \|\| ($r->uri=~m{^/adm/dns/(hosts\|domain)$})) {
my %iphost = &Apache::lonnet::get_iphost();	my %iphost = &Apache::lonnet::get_iphost();
if (exists($iphost{$remote_ip})) {	if (exists($iphost{$remote_ip})) {
undef($redirect);	undef($redirect);
Line 89 sub handler {	Line 89 sub handler {
}	}
if ($redirect) {	if ($redirect) {
my $uri = $r->uri;	my $uri = $r->uri;
	if (($uri eq '/adm/sso') \|\| ($uri eq '/adm/switchserver') \|\|
	($uri =~ m{^/Shibboleth.sso/})) {
	return DECLINED;
	}
unless ($uri eq '/adm/migrateuser') {	unless ($uri eq '/adm/migrateuser') {
my %user;	my %user;
my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);	my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);