--- loncom/auth/lonlogin.pm	2021/01/04 12:50:06	1.158.2.9.2.3
+++ loncom/auth/lonlogin.pm	2020/10/24 19:49:06	1.158.2.10
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.158.2.9.2.3 2021/01/04 12:50:06 raeburn Exp $
+# $Id: lonlogin.pm,v 1.158.2.10 2020/10/24 19:49:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -51,11 +51,6 @@ sub handler {
     if (!defined($env{'form.firsturl'})) {
         &Apache::lonacc::get_posted_cgi($r,['firsturl']);
     }
-    if (!defined($env{'form.firsturl'})) {
-        if ($ENV{'REDIRECT_URL'} =~ m{^/+tiny/+$LONCAPA::match_domain/+\w+$}) {
-            $env{'form.firsturl'} = $ENV{'REDIRECT_URL'};
-        }
-    }
 
 # -- check if they are a migrating user
     if (defined($env{'form.token'})) {
@@ -377,7 +372,6 @@ sub handler {
             next if ($hostid eq $lonhost);
             my $hostname = &Apache::lonnet::hostname($hostid);
             next if (($hostname eq '') || ($spareservers{$hostname}));
-            $spareservers{$hostname} = 1;
             my $protocol = $Apache::lonnet::protocol{$hostid};
             $protocol = 'http' if ($protocol ne 'https');
             $spares.='<br /><a href="'.$protocol.'://'.
@@ -508,7 +502,7 @@ ENDSCRIPT
         my $omitextra;
         if ($headextra_exempt ne '') {
             my @exempt = split(',',$headextra_exempt);
-            my $ip = &Apache::lonnet::get_requestor_ip();
+            my $ip = $ENV{'REMOTE_ADDR'};
             if (grep(/^\Q$ip\E$/,@exempt)) {
                 $omitextra = 1;
             }
@@ -751,7 +745,7 @@ sub check_loginvia {
     my $output;
     if ($loginvia ne '') {
         my $noredirect;
-        my $ip = &Apache::lonnet::get_requestor_ip();
+        my $ip = $ENV{'REMOTE_ADDR'};
         if ($ip eq '127.0.0.1') {
             $noredirect = 1;
         } else {