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

[raeburn]

raeburn		Mon Oct 19 02:15:33 2009 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Tighten up regular expression checks in lonnet::symbverify().
    - Eliminate strange behavior when paths contain the strings: "adm" or "ext".
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1030 loncom/lonnet/perl/lonnet.pm:1.1031
--- loncom/lonnet/perl/lonnet.pm:1.1030	Thu Oct  8 19:54:31 2009
+++ loncom/lonnet/perl/lonnet.pm	Mon Oct 19 02:15:33 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1030 2009/10/08 19:54:31 raeburn Exp $
+# $Id: lonnet.pm,v 1.1031 2009/10/19 02:15:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9114,8 +9114,8 @@
 	|| $thisfn =~ m{^/adm/(includes|pages)} ) { 
        $thisfn='/res'.$thisfn; 
     }
-    if ($thisfn !~m|/adm|) {
-	if ($thisfn =~ m|/ext/|) {
+    if ($thisfn !~m|^/adm|) {
+	if ($thisfn =~ m|^/ext/|) {
 	    $thisfn='/adm/wrapper'.$thisfn;
 	} else {
 	    my ($ext) = ($thisfn =~ /\.(\w+)$/);