version 1.227, 2004/08/10 11:38:11
|
version 1.228, 2004/08/10 22:55:31
|
Line 1812 sub remove_user_file_handler {
|
Line 1812 sub remove_user_file_handler {
|
my ($fname) = split(/:/, $tail); # Get rid of any tailing :'s lonc may have sent. |
my ($fname) = split(/:/, $tail); # Get rid of any tailing :'s lonc may have sent. |
|
|
my ($udom,$uname,$ufile) = ($fname =~ m|^([^/]+)/([^/]+)/(.+)$|); |
my ($udom,$uname,$ufile) = ($fname =~ m|^([^/]+)/([^/]+)/(.+)$|); |
&logthis("$udom - $uname - $ufile"); |
|
if ($ufile =~m|/\.\./|) { |
if ($ufile =~m|/\.\./|) { |
# any files paths with /../ in them refuse |
# any files paths with /../ in them refuse |
# to deal with |
# to deal with |