albertel Tue Nov 12 17:28:48 2002 EDT
Modified files:
/loncom/auth lonuploadedacc.pm
Log:
- less buggy better error messages
Index: loncom/auth/lonuploadedacc.pm
diff -u loncom/auth/lonuploadedacc.pm:1.4 loncom/auth/lonuploadedacc.pm:1.5
--- loncom/auth/lonuploadedacc.pm:1.4 Tue Nov 12 17:23:37 2002
+++ loncom/auth/lonuploadedacc.pm Tue Nov 12 17:28:48 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Access Handler for User Files
#
-# $Id: lonuploadedacc.pm,v 1.4 2002/11/12 22:23:37 albertel Exp $
+# $Id: lonuploadedacc.pm,v 1.5 2002/11/12 22:28:48 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -40,8 +40,8 @@
$ufile=~s/^[\~\.]+//;
my ($homeserver)=($ENV{'form.token'}=~/\_([a-zA-Z0-9]+)$/);
my $remoteip=$ENV{'REMOTE_ADDR'};
- &Apache::lonnet::logthis("remote server $remoteserver");
my $remoteserver=$Apache::lonnet::iphost{$remoteip};
+ &Apache::lonnet::logthis("remote server $remoteip $remoteserver");
my $reply=&Apache::lonnet::reply('tokenauthuserfile:'.
$udom.'/'.$uname.'/'.$ufile.':'.$ENV{'form.token'},
@@ -50,7 +50,7 @@
return OK;
} else {
&Apache::lonnet::logthis(
-"Refused userfile access $uname at $udom for $ufile from $server with $ENV{'form.token'}: $reply");
+"Refused userfile access $uname at $udom for $ufile from $remoteip -> $remoteserver home $homeserver with $ENV{'form.token'}: $reply");
return FORBIDDEN;
}
}