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

[albertel]

albertel		Mon Oct 31 14:32:20 2005 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - source of the 'Critcal message to unknown server()' messages is that fact that since revison 1.57 of lonnet.pm it's been trying to talk to user.host instead of the correct user.home
  - switching these &log() to &logthis() since there are lots of actions we take that users aren't dangerous that raise these warnings
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.672 loncom/lonnet/perl/lonnet.pm:1.673
--- loncom/lonnet/perl/lonnet.pm:1.672	Mon Oct 31 13:23:09 2005
+++ loncom/lonnet/perl/lonnet.pm	Mon Oct 31 14:32:19 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.672 2005/10/31 18:23:09 albertel Exp $
+# $Id: lonnet.pm,v 1.673 2005/10/31 19:32:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3293,7 +3293,7 @@
        my $unamedom=$env{'user.name'}.':'.$env{'user.domain'};
        if ($env{'course.'.$env{'request.course.id'}.'.'.$priv.'.roles.denied'}
 	   =~/\Q$rolecode\E/) {
-           &log($env{'user.domain'},$env{'user.name'},$env{'user.host'},
+           &logthis($env{'user.domain'}.':'.$env{'user.name'}.':'.$env{'user.home'}.':'.
                 'Denied by role: '.$priv.' for '.$uri.' as '.$rolecode.' in '.
                 $env{'request.course.id'});
            return '';
@@ -3301,7 +3301,7 @@
 
        if ($env{'course.'.$env{'request.course.id'}.'.'.$priv.'.users.denied'}
 	   =~/\Q$unamedom\E/) {
-           &log($env{'user.domain'},$env{'user.name'},$env{'user.host'},
+           &logthis($env{'user.domain'}.':'.$env{'user.name'}.':'.$env{'user.home'}.
                 'Denied by user: '.$priv.' for '.$uri.' as '.$unamedom.' in '.
                 $env{'request.course.id'});
            return '';
@@ -3313,8 +3313,8 @@
    if ($thisallowed=~/R/) {
        my $rolecode=(split(/\./,$env{'request.role'}))[0];
        if (&metadata($uri,'roledeny')=~/\Q$rolecode\E/) {
-	  &log($env{'user.domain'},$env{'user.name'},$env{'user.host'},
-                    'Denied by role: '.$priv.' for '.$uri.' as '.$rolecode);
+	   &logthis($env{'user.domain'}.':'.$env{'user.name'}.':'.$env{'user.home'}.':'.
+		'Denied by role: '.$priv.' for '.$uri.' as '.$rolecode);
           return '';
        }
    }