version 1.56, 2004/05/11 18:42:30
|
version 1.57, 2004/05/12 18:34:47
|
Line 104 END
|
Line 104 END
|
$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/; |
$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/; |
$eps_f = '/home/httpd/prtspool/'.$1; |
$eps_f = '/home/httpd/prtspool/'.$1; |
} elsif ($eps_f=~/\/home\/httpd\/lonUsers\//) { |
} elsif ($eps_f=~/\/home\/httpd\/lonUsers\//) { |
$eps_f=~/\/home\/httpd\/lonUsers\/([^\/]+)\/\w\/\w\/\w\/(.+)/; |
$eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/; |
$eps_f = '/home/httpd/prtspool/'.$1.'/'.$2; |
$eps_f = '/home/httpd/prtspool/'.$1.'/'.$2; |
} |
} |
my $path=$eps_f; |
my $path=$eps_f; |