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

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 30 Aug 2002 22:01:31 -0000


albertel		Fri Aug 30 18:01:31 2002 EDT

  Modified files:              (Branch: version_0_5_1)
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - CUSR bugfix backport from 1.272
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.267.4.3 loncom/lonnet/perl/lonnet.pm:1.267.4.4
--- loncom/lonnet/perl/lonnet.pm:1.267.4.3	Fri Aug 30 16:33:58 2002
+++ loncom/lonnet/perl/lonnet.pm	Fri Aug 30 18:01:31 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.267.4.3 2002/08/30 20:33:58 albertel Exp $
+# $Id: lonnet.pm,v 1.267.4.4 2002/08/30 22:01:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2137,7 +2137,8 @@
     my $uhome=&homeserver($uname,$udom);
     unless (&allowed('mau',$udom)) { return 'refused'; }
     &logthis('Call to modify user authentication '.$udom.', '.$uname.', '.
-             $umode.' by '.$ENV{'user.name'}.' at '.$ENV{'user.domain'});  
+             $umode.' by '.$ENV{'user.name'}.' at '.$ENV{'user.domain'}.
+             ' in domain '.$ENV{'request.role.domain'});  
     my $reply=&reply('encrypt:changeuserauth:'.$udom.':'.$uname.':'.$umode.':'.
 		     &escape($upass),$uhome);
     &log($ENV{'user.domain'},$ENV{'user.name'},$ENV{'user.home'},
@@ -2168,7 +2169,8 @@
 	     $last.', '.$gene.'(forceid: '.$forceid.')'.
              (defined($desiredhome) ? ' desiredhome = '.$desiredhome :
                                      ' desiredhome not specified'). 
-             ' by '.$ENV{'user.name'}.' at '.$ENV{'user.domain'});
+             ' by '.$ENV{'user.name'}.' at '.$ENV{'user.domain'}.
+             ' in domain '.$ENV{'request.role.domain'});
     my $uhome=&homeserver($uname,$udom,'true');
 # ----------------------------------------------------------------- Create User
     if (($uhome eq 'no_host') && ($umode) && ($upass)) {