[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
www
lon-capa-cvs@mail.lon-capa.org
Fri, 10 Jan 2003 21:13:00 -0000
www Fri Jan 10 16:13:00 2003 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
The '+' does not work, because for uploaded access, the filename DOES get
passed around in a query string, and is thus later translated into a space.
Of course we could now go into escaping it, etc, BUT THIS IS NOT WORTH IT.
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.316 loncom/lonnet/perl/lonnet.pm:1.317
--- loncom/lonnet/perl/lonnet.pm:1.316 Fri Jan 10 15:55:44 2003
+++ loncom/lonnet/perl/lonnet.pm Fri Jan 10 16:13:00 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.316 2003/01/10 20:55:44 www Exp $
+# $Id: lonnet.pm,v 1.317 2003/01/10 21:13:00 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -864,7 +864,7 @@
# Replace spaces by underscores
$fname=~s/\s+/\_/g;
# Replace all other weird characters by nothing
- $fname=~s/[^\w\.\-\+]//g;
+ $fname=~s/[^\w\.\-]//g;
# See if there is anything left
unless ($fname) { return 'error: no uploaded file'; }
chop($ENV{'form.'.$formname});