[LON-CAPA-dev] File replication on library server

[Mark Lucas]

Thanks! I was afraid it was something subtle like that.

Mark

On Tue, 2007-10-16 at 17:34 -0400, Guy Albertelli II wrote:
> Hi Mark,
> 
> > I have a small file download routine that pulls together a zip file of
> > submissions. This runs fine on an access server, but I tried it this
> > morning on my library server and it does not work. It seems the files do
> > not end up in the same place as they do on the access server.
> > 
> > The following chunk of code pulls together uploaded files from students
> > into one directory. I'm figuring the issue is that in this case, access
> > to files on the library server does not behave like access on the access
> > servers. Can someone illuminate me? 8)
> 
> You are using filelocation incorrectly.
> 
> First argument is a directory that the second argument is relative to,
> if it's an absolute reference then on the second argument needs to be
> specified.
> 
> Yeah, it's not the best function design.
> 
> But when used correctly it returns the absolute on disk filename for
> the requested file (and gets the access/library server thing correct)
> 
> 
> 
> Any hoo this will do it:
> 
>  foreach my $student (@$students) {
>      my $domain = $student->{'domain'};
>      my $username = $student->{'username'};
>      my %history = Apache::lonnet::restore($symb,$courseid,$domain,$username);
>      my $uploadurl=$history{'resource.0.upload.uploadedurl'};
>      if ($uploadurl) {
>          # best just to always do this, could be out of date, missing etc
> 	 &Apache::lonnet::repcopy($uploadedurl);
> 	 my $filelocation = &Apache::lonnet::filelocation("",$uploadurl);
>          #chop($filelocation); err why are you doing this?
>  
> 	 my $filetype = (split(/\./,$filelocation))[-1];
>          $filetype =~ s|/||g; # ???
>          my $file2 = $destination."file".substr("000".$index,-3).".$filetype";
>          $index++;
>          copy($filelocation,$file2);
>      } else {
>          $html .= "NO FILE for $username<br/>\n";
>      }
>  }
> 
>