--- loncom/lonnet/perl/lonuploadrep.pm 2006/08/21 15:21:31 1.8 +++ loncom/lonnet/perl/lonuploadrep.pm 2006/12/20 22:41:07 1.9 @@ -31,10 +31,11 @@ use Apache::Constants qw(:common :http); use Apache::lonrep(); use Apache::lonnet; use CGI::Cookie(); +use LONCAPA(); sub handler { my $r = shift; - if ($r->uri =~m|^/*uploaded/(\w+)/(\w+)/(.+)$|) { + if ($r->uri =~m{^/*uploaded/($LONCAPA::domain_re)/($LONCAPA::name_re)/(.+)$}) { my $chome=&Apache::lonnet::homeserver($2,$1); my @ids=&Apache::lonnet::current_machine_ids(); foreach my $id (@ids) { if ($id eq $chome) { return OK; } }