[LON-CAPA-cvs] cvs: loncom /auth lonlogin.pm
www
lon-capa-cvs@mail.lon-capa.org
Sat, 25 May 2002 22:15:03 -0000
www Sat May 25 18:15:03 2002 EDT
Modified files:
/loncom/auth lonlogin.pm
Log:
Probably safer
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.17 loncom/auth/lonlogin.pm:1.18
--- loncom/auth/lonlogin.pm:1.17 Sat May 25 17:46:15 2002
+++ loncom/auth/lonlogin.pm Sat May 25 18:15:03 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Login Screen
#
-# $Id: lonlogin.pm,v 1.17 2002/05/25 21:46:15 www Exp $
+# $Id: lonlogin.pm,v 1.18 2002/05/25 22:15:03 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -49,6 +49,8 @@
&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['interface']);
+
+ $ENV{'form.interface'}=~s/\W//g;
my $fullgraph=($ENV{'form.interface'} ne 'textual');