loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.256, 2002/07/30 19:59:32
+version 1.257, 2002/07/30 21:20:27
  Line 717  sub tokenwrapper {
  	'token='.$token.'&server='.$perlvar{'lonHostID'};
  }
+ # --------------- Take an uploaded file and put it into the userfiles directory
+ # input: name of form element
+ # output: url of file in userspace
+ sub userfileupload {
+     my $formname=shift;
+     my $fname=$ENV{'form.'.$formname.'.filename'};
+     $fname=~s/\\/\//g;
+     $fname=~s/^.*\/([^\/]+)$/$1/;
+     unless ($fname) { return 'error: no uploaded file'; }
+     chop($ENV{'form.'.$formname});
+     my $path='/userfiles/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/';
+ #
+ # FIXME: actually save file
+ #
+     return 'http;//'.$ENV{'SERVER_NAME'}.$path.$fname;
+ }
  # ------------------------------------------------------------------------- Log