[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
raeburn
raeburn@source.lon-capa.org
Tue, 18 Jan 2011 20:19:29 -0000
raeburn Tue Jan 18 20:19:29 2011 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
- Correction to regexp added in 1.1089 to suppress log spam.
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1099 loncom/lonnet/perl/lonnet.pm:1.1100
--- loncom/lonnet/perl/lonnet.pm:1.1099 Tue Jan 11 22:01:09 2011
+++ loncom/lonnet/perl/lonnet.pm Tue Jan 18 20:19:29 2011
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.1099 2011/01/11 22:01:09 raeburn Exp $
+# $Id: lonnet.pm,v 1.1100 2011/01/18 20:19:29 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -8473,7 +8473,7 @@
if (($uri eq '') ||
(($uri =~ m|^/*adm/|) &&
($uri !~ m|^adm/includes|) && ($uri !~ m|/bulletinboard$|)) ||
- ($uri =~ m|/$|) || ($uri =~ m|/.meta$|) || ($uri =~ /^\*uploaded\/.+\.sequence$/) || ($uri =~ m{^/*uploaded/$match_domain/$match_courseid/docs/})) {
+ ($uri =~ m|/$|) || ($uri =~ m|/.meta$|) || ($uri =~ m{^/*uploaded/.+\.sequence$}) || ($uri =~ m{^/*uploaded/$match_domain/$match_courseid/docs/})) {
return undef;
}
if (($uri =~ /^~/ || $uri =~ m{home/$match_username/public_html/})