[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /lonnet/perl lonnet.pm

[raeburn]

raeburn		Mon Jan  4 13:32:39 2021 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - For 2.11
    Change from 1.1434 omitted in 1.1172.2.134 backport
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1172.2.134 loncom/lonnet/perl/lonnet.pm:1.1172.2.135
--- loncom/lonnet/perl/lonnet.pm:1.1172.2.134	Mon Jan  4 03:55:50 2021
+++ loncom/lonnet/perl/lonnet.pm	Mon Jan  4 13:32:39 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.134 2021/01/04 03:55:50 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.135 2021/01/04 13:32:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7026,7 +7026,7 @@
            $namevalue.=&escape($key).'='.&freeze_escape($storehash->{$key}).'&';
        }
        my $ip = &get_requestor_ip();
-       $namevalue .= 'ip='.$ip.
+       $namevalue .= 'ip='.&escape($ip).
                      '&host='.&escape($perlvar{'lonHostID'}).
                      '&version='.$esc_v.
                      '&by='.&escape($env{'user.name'}.':'.$env{'user.domain'});