version 1.26, 2011/10/25 19:11:52
|
version 1.27, 2011/10/31 01:16:59
|
Line 90 sub copy_stage {
|
Line 90 sub copy_stage {
|
my ($role,$author_name,$domain)=©_author(); |
my ($role,$author_name,$domain)=©_author(); |
|
|
# Construct path to copy and filter out any possibly nasty stuff |
# Construct path to copy and filter out any possibly nasty stuff |
my $path_to_new_file = '/home/httpd/html/priv/'.$domain.'/'.$author_name.'/'.$newpath.'/'.$listname; |
my $path_to_new_file = $r->dir_config('lonDocRoot'). |
|
"/priv/$domain/$author_name/$newpath/$listname"; |
$path_to_new_file=~s/\.\.//g; |
$path_to_new_file=~s/\.\.//g; |
$path_to_new_file=~s/\~//g; |
$path_to_new_file=~s/\~//g; |
$path_to_new_file=~s/\/+/\//g; |
$path_to_new_file=~s/\/+/\//g; |
Line 166 sub copy_file {
|
Line 167 sub copy_file {
|
#Figure out if we are author or co-author |
#Figure out if we are author or co-author |
my ($role,$author_name,$domain)=©_author(); |
my ($role,$author_name,$domain)=©_author(); |
|
|
my $path = '/home/httpd/html/priv/'.$domain.'/'.$author_name.'/'; |
my $path = $r->dir_config('lonDocRoot')."/priv/$domain/$author_name/"; |
my @directories = split(/\//,$newpath); |
my @directories = split(/\//,$newpath); |
|
|
foreach my $now_checking (@directories) { |
foreach my $now_checking (@directories) { |